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¡¡MENUDO CAMBIO!! 


y llévate un 



Haenostu 



Renuévate con 
INVESTRONICA. 


Ahora INVESTRONICA te da 
la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS. 

Sólo tendrás que entregarnos tu 
ZX SPECTRUM... 

...lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última. 


(*) iSOOQ pts sr es de 16 K 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar, de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA, al realizar el 
cambio, te da de nuevo 
6 meses de garantía 
una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 

No te lo pienses,,, cámbiate a lo 
último, tienes las de ganar. 


SPECTRUM PLUS 

Tenerlo, muy fácil 


Manda tu ZX Spectrum 
(sin cables, ni fuente de 
alimentación) a tu Servicio 
Técnico Oficial 
(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (*) 
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Spectrum 

Algunos programas aparecidos en el mercado anuncian que son capaces de 
hacer hablar al Spectrum. Realmente se trata de un hecho curioso y divertido. 

A pesar de su aparente dificultad, es algo que pueden realizar en sus casas todos 
los usuarios de un Spectrum 48 K. 


N o se trata de sintetizar soni¬ 
dos, ni de construir gran- 

.diosos artilugios que, en- 

[—__J chufados al Spectrum. sean 
capaces de recitar la lista de 
reyes godos. Nuestra intención es 
almacenar en memoria un mensaje 
previamente grabado, para que el 
ordenador lo reproduzca poste¬ 
riormente por el altavoz interno. 
Como más tarde explicaremos, el 
método no se caracteriza por una 
limpieza cristalina. En efecto, la 


señal viene acompañada por un 
fuerte ruido de fondo — hablando 
con propiedad diríamos que se ob¬ 
tiene un fuerte ruido de fondo al 
que se le suma la señal—. Sin em¬ 
bargo, el resultado es perfectamen¬ 
te inteligible, con una calidad se¬ 
mejante o superior a la de los pro¬ 
gramas comerciales que incorpo¬ 
ran este tipo de efectos. 


Principio de funcionamiento 

Para grabar los sonidos tendre¬ 
mos que conectar el magnetófono, 
con un mensaje previamente gra¬ 
bado, a la entrada EAR, de forma 
semejante a cuando cargamos un 
programa. 

La señal que entra en el ordena¬ 
dor es filtrada suavemente antes de 
aplicarse a un circuito digital iza - 
dor. Este proceso consiste en dar a 
la salida un nivel lógico 1 si la se¬ 
ñal sobrepasa una cierta tensión o 
un cero si no se alcanza este valor. 
Para aclarar conceptos, observe 
cuidadosamente la figura 1. El “ni¬ 
vel de disparo” (que es el nombre 
que recibe) es constante e inaltera¬ 
ble. Por el toes fácil de deducir que 
si variamos la amplitud de la en¬ 
trada. la señal digitalizada asocia¬ 


da variará de una forma i m prede¬ 
cible, siendo éste un resultado no 
deseable, De aquí, se deduce inme¬ 
diatamente que eí volumen con el 
que se reproduce la señal a grabar 
es algo crítico, y deberá ajustarse 
cuidadosamente. 

Ahora estamos en condiciones 
de manejar esta señal, pues se trata 
de una señal digital, esto es, sólo 
distingue dos niveles de tensión. Se 
podrá, pues, almacenar en la me¬ 
moria del ordenador. Sólo nos 
hace taita saber de qué manera. 

Posponemos esta discusión para 
ocuparnos en primer lugar de la 
recuperación de la señal. 


Recuperación de la señal 

Teníamos una señal analógica 
“A”, y procesándola hemos obte¬ 
nido otra digital “D”, que pode¬ 
mos almacenar de una manera 
(por ahora) totalmente mágica. Sin 
embargo, es claro que todo este 
proceso vale de poco sí no somos 
capaces de recomponer la señal 
original o al menos una aproxima¬ 
ción. 

El sistema comúnmente em¬ 
pleado en la grabación o el trata¬ 
miento digital de señales analógi¬ 
cas requiere en primer lugar un 



muestreo periódico de la señal de 
entrada. Esto es necesario, ya que 
la señal digital tiene siempre una 
distribución discreta en la ampli¬ 
tud y en el tiempo. 

La frecuencia de muestreo debe 
ser al menos dos veces más alta 
que el ancho de banda de la señal. 
Sólo con estas condiciones será po¬ 
sible recuperar la señal inicial 
(Teorema de Nyquist). Sobre las 
muestras se realizará una conver¬ 
sión analógico-digital, esto es, me¬ 
diremos la tensión resultante con 
un número finito de cifras, lo que 
supone necesariamente un error. 
Para audio de alta calidad se usan 
16 bits en la conversión (se miden 
2' 16 = 65536 niveles diferentes). 
Cuando se pretende conseguir una 
calidad aceptable, el usar menos 
de 8 bits es algo que ni se plantea. 
A la vista de esto, es lógico supo¬ 
ner que vamos a conseguir una ca¬ 
lidad excepcional con un conver- 
sor de ¡un bit! Más de un sabio es¬ 
tudioso del tratamiento digital se 
sorprendería a la vista de los resul¬ 
tados obtenidos. Sin duda, califica¬ 
ría el procedimiento de locura im¬ 
posible; sin embargo, FUNCIO¬ 
NA. 

Para reproducir la señal debe¬ 
mos dar salida a las muestras to¬ 
madas (que han sido almacenadas 
y tal vez procesadas de forma nu¬ 
mérica) en el mismo orden en que 
han sido recogidas. Un filtrado 
paso bajo devuelve una señal tanto 
más parecida a la original, cuanto 
mayor sea el número de bits em¬ 
pleado en la conversión. En nues¬ 
tro caso no vamos a hacer un filtra¬ 
do serio, pero si lo hiciéramos ob¬ 
tendríamos una mejor relación se¬ 
ñal-ruido. Al final obtenemos una 
señal bastante distorsionada a la 


















que hay que sumar un fuerte ruido 
(“ruido de cuanlización”). El ma¬ 
ravilloso cerebro humano se en¬ 
carga del resto. 

Almacenamiento de) sonido 

Vamos a volver al problema que 
teníamos pendiente. El método 
más intuitivo de almacenar la se¬ 
ñal que vamos muest reando sería 
llenar la memoria de forma “li¬ 
neal" con ceros y unos según sea el 
nivel lógico detectado a la entrada. 
Ver figura 2. El procedimiento es 
válido si la relación entre la fre¬ 
cuencia de la señal y la de mues- 
treo es como se indica en la figura. 
Pero si aumentáramos la frecuen¬ 
cia do muest reo en cien o mil veces 
(o redujéramos la de la señal otras 
tantas), inmediatamente nos daría¬ 
mos cuenta de que la densidad de 
información sería extremadamen¬ 
te baja. En efecto, supongamos que 
la frecuencia de la señal de la figu¬ 
ra fuera 100 veces más baja. Esto 
significa que si en el primer inter¬ 
valo de I ’s contábamos tres mues¬ 


tras, ahora lo haremos 300. En el 
programa que mostramos, la fre¬ 
cuencia de muest reo es de unos 30 
KHz. Usando 32 K de memoria 
sólo podríamos almacenar 8 se¬ 
gundos de “charla”. 

La solución es obvia: reduzca¬ 
mos la frecuencia de muestreo, con 
lo que disminuiremos el ritmo de 
información requerido (número de 
bits por unidad de tiempo). 

Sin embargo, lo que aparece 
como ingeniosa sugerencia presen¬ 
ta dos graves problemas: 

— Si disminuimos excesiva¬ 
mente la frecuencia de muestreo, 
hasta cifras por debajo de la fre¬ 
cuencia de Nyquist (el doble del 
ancho de banda), nos encontramos 
con un fenómeno llamado alia- 
sing. Este curioso efecto produce 
un plegamiento del espectro y ge¬ 
nera un tipo de distorsión muy de¬ 
sagradable. Para comprender su 
funcionamiento, les remitimos a la 
figura 3. En e! gráfico a vemos una 
señal que queremos muestrear. Se 
observa que parle de la señal tiene 
una frecuencia superior a la de 
muestreo. La figura h indica la se¬ 


ñal que ha sido capaz de recoger el 
circuito muest reador. Podríamos 
decir que las componentes de alta 
frecuencia se le han “escapado”. Y 
lo que es peor, la sección del es¬ 
pectro de las frecuencias más bajas 
han pasado a engrosar las tilas de 
los tonos bajos. 

Si grabáramos un sonido cuya 
altura sube constantemente (como 
el sonido que hace un proyectil al 
caer) notaríamos cómo, a partir de 
un instante, la nota que se supone 
que debería seguir subiendo, se ha 
convertido en un tono grave. Esta 
nota alta tiene un “alias” (de aquí 
el nombre de aliasing). Resulta 
evidente que este efecto debe ser 
corregido. La forma evidente es 
realizar un filtrado previo, elimi¬ 
nando de esta manera las frecuen¬ 
cias altas que pudieran dar proble¬ 
mas. Y de paso disminuiríamos la 
densidad de información requeri¬ 
da. sin embargo, no hemos olvida¬ 
do la promesa inicial de no usar 
cachivaches externos. 

— Otro efecto pernicioso es que 
al bajar la frecuencia de muestreo I 
de los 15-20 K.Hz, esta señal se ' 





























































hace audible. De nuevo podríamos 
usar un filtro, también paso bajo, 
pero... Como usaremos el cassette 
para grabar en el Spectrum, es bas¬ 
tante razonable suponer que el an¬ 
cho de banda es de unos 15 KHz. 
Por tanto usaremos una frecuencia 
de muestreo de aproximadamente 
30 KHz. Ya hemos visto las conse¬ 
cuencias que tendría el bajarla. 
Hacerla más alta (aunque se pudie¬ 
ra), sólo llevaría a aumentar la me¬ 
moria necesaria para grabar un 
cierto mensaje. 


El método que hemos empleado 
consiste en contar el número de 
muestras que se toman entre dos 
transiciones de nivel. Así. si tene¬ 
mos que la señal se ha mantenido 
en 1 durante 50 muestras y luego a 
0 durante 30. tomaremos nota de 
estos datos, y la reproducción con¬ 
sistirá precisamente en ponera ! la 
salida durante 50 períodos y des¬ 
pués a 0 durante 30. Se observa 



que, además de los tiempos, será 
necesario apuntar el estado lógico 
de la entrada. Una inversión lógica 
de los niveles (inversión de fase), 
no tendrá ninguna importancia 
siempre y cuando ésta sea constan¬ 
te. 

Vamos a hacer algunos números 
par calcular ciertos aspectos de in¬ 
terés. 

Con la frecuencia de muestreo 
escogida de 30 KHz, una señal 
muy asimétrica de 100 Hz necesi¬ 
tará 300 períodos de muestreo en¬ 
tre dos transiciones. Teniendo en 
cuenta que podemos encontrar fá¬ 
cilmente señales de frecuencia más 
baja, vemos que con un byte no te¬ 
nemos bastante. Además está el 
problema de anotar el nivel de en¬ 
trada. 

Para permitir una gran tlexibili- 
dad, vamos a usar la siguiente con- 
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DOS GRANDES JUEGOS EN CODIGO 
CON MAQUINA OPCION DE JOYSTICK 


JUEGOS 


Chopper PILOTANDO UN 
HELICOPTERO, TENDRA QUE DIRIGIR 
EL EQUIPO DE RESCATE PARA 
SALVAR A LOS ABANDONADOS 
EN UN CAMPO PETROLIFERO, 

DE UNA MUERTE SEGURA. 

6*1 voy DESTRUIR LOS 
ALIENIGENAS V SUS NAVES 
ES LA UNICA FORMA DE SALVAR 
LA TIERRA DE LA INVASION. 


fumcuLOs 

Twiddier MUESTRA LOS 
MISTERIOS DEL 
RAPIDO CAMBIO DE COLOR. 
Cartoon APRENDA A 
PROGRAMAR 
DIBUJOS ANIMADOS. 
Hangout CONOZCA MAS A 
FONDO LAS POSIBILIDADES 
DE SU ORDENADOR. 


BIENVENIDO A 




CHOPPER 
TWIDDLER 
SHOOT 
HANGOUT 
TOM ATOES 
CARTOON 
CONVEYOR 
TALLER 
CONVOY 
LIGHTBIKE 
LA TUMBA DE ELLAK 


r /í jA 


/ 

/V 

& t? o. 


. h ',' 

P°# 

d>V 












































































































figura 1 


Figura 2 




figuración: en cada palabra de 8 
bits reservaremos uno (el menos 
significativo) para indicar el estado 
lógico que corresponde a la señal 
(si es 0 ó 1). Los siete bits restantes 
se usarán para almacenare! núme¬ 
ro de ciclos de muestreo que la se¬ 
ñal ha estado en el nivel dado. Por 
tanto, el valor almacenado será 
2 * n + e, donde “n” es el número 
de muestras tomadas y “e” es el 
valor de la entrada. 

Aclaremos las ideas con un 
ejemplo (ver fig. 5). En primer lu¬ 
gar. tendremos la entrada a 0 du¬ 
rante 5 ms. Con el valor dado de la 
frecuencia de muestreo, durante 
este tiempo habremos sido capaces 
de tomar 5.10~—3 * 3.10 4 = 150 
muestras. Como en cada byte po¬ 
demos contar un máximo de 2"7-1 
= 127, necesitamos encadenar dos. 
El primero con el valor de 254 y el 
segundo con 46, el doble de los 32 
restantes, 

A continuación la entrada estará 
en 1 durante 100 us. Podremos en 
este tiempo muestrear la entrada 
]0"4 * 3.10*4 = 3 veces. Almace¬ 
naremos por tanto el número 7. 


Programas 

Vamos a pasar directamente a la 
descripción de los programas. El 
primero de ellos es el encargado de 
I a grabación (RECORD) y el se¬ 
gundo de la reproducción, PLAY. 

El área de memoria asignada 
para el almacenamiento de los dis¬ 
cursos es la comprendida entre la 
dirección START y el final de la 
memoria FFFFH. Es interesante 
que tanto el programa como el ar¬ 
chivo de “voces y gritos” estén en 
el segundo bloque de 32 K, esto es, 
entre las direcciones 8000H y 
FFFFH. La justificación del hecho 
reside en que el acceso a memoria 
en el primer bloque de 16 K de 
RAM sufre pequeños retrasos de¬ 
bido al robo de ciclos que efectúa 
la ULA. Esto podría afectar a los 
procesos de temporización del 
programa. 

Por idénticas razones, aunque 
en este caso mucho más justifica¬ 
das, es necesario deshabilitar las 
interrupciones (mediante la ins¬ 
trucción DI, ver TODOSPEC- 
TRUM número 6). 

Programa RECORD 

Usaremos el registro C para ai- 



0 1 110 0 1 10 0 


macenar información relativa al 
estado de la entrada. El contenido 
del bit menos significativo de C 
será un fiel testigo del nivel de en¬ 
trada. Para detectar una posible 
transición de nivel compararemos 
este registro con el A, después de 
haber hecho sobre éste algunas 
manipulaciones. Veamos cuáles 
son éstas. 

Al acabar de ejecutar una ins¬ 
trucción de entrada de datos a tra¬ 
vés del puerto 254 (FEH), nos en¬ 
contramos en el bit 2 de A la infor¬ 
mación relativa a la entrada de 
cassette (quienes se hayan sentido 
ligeramente indispuestos, les reco¬ 
mendamos una cura a base de una 
lectura del capítulo 23 del manual). 

Si realizamos dos giros sucesivos 
del acumulador hacia la derecha, 
el mencionado bit aparecerá en el 
lugar menos significativo. Al hacer 
un ANDO 1, despejaremos la pala¬ 
bra de información no deseada. El 
acumulador guarda ahora un 0 ó 1 
en función de la entrada. Compa¬ 
rando este registro con el C, estare¬ 
mos en condiciones de determinar 
si ha habido o no cambios de nivel. 

El bucle de muestreo está con¬ 
trolado por un DJNZ. El agudo 
lector habrá observado que el re- 



Programa 2 

1 REM *# PROGRAMA CARGADOR ** 

2 REM 

10 DATA 33,115.128,243,14,1,6, 
120,219,254,0,12 

20 DATA 7,7,230,1,169,32,24,16 
,233.203 r 32 * 120«177,47,119,0,9 
30 DATA 35,124,181,32,211,251, 
201,203,32, 120, 177,47,119, 121,47 
,230,1,79.24,236 

40 DATA 33,115,128,243,175,70, 
203,56,56,2,62,255,211,254,O, 19 
50 DATA 16,233,0,7 
60 DATA 35,124,181,32,213,251, 
201 

100 RESTORE : OLEAR 30000 


110 LET A=32768: LET 1=0: LET S 
UIÍA=0 

120 IF I>114 THEN GO TO 200 
130 READ D: IF D-0 THEN READ F 
: FÜR J-l TO F: F'OKE U+A) ,0: LE 
T 1=1+1: NEXT J: GO TO 120 
140 F'OKE (I+AÍ , D: LET SUMA=SUMA 
+D: LET 1=1+1: GO TO 120 
200 IF SUMAOS 176 THEN GO TO 1 
000 

210 F’RINT " Fragrama correctame 
nte escrita." ?? TAB 6;"Grábela en 
cinta" í,,! ; SAVE M Vox"CGDE A,I: 
F'RINT " Rebabine para verifi 
car": VERIFY ""CODE A,I: STOP 
1000 BEEP .2,30: PRINT "Hay un e 
rror. Revise los DATAKs": STOP 
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Finirá 3 


Figura 4 


Figura 5 



gistro B ha sido previamente ini¬ 
cial izado con el máximo número 
de períodos que puede almacenar¬ 
se en un byte {recordemos que un 
bit se reserva para apuntar el ni¬ 
vel). Según se van tomando mues¬ 
tras sin que se altere el nivel de en¬ 
trada, se decrementa el registro B. 
Es fácil de demostrar que en B te¬ 
nemos el complemento a 1 (Ja in¬ 
versión lógica) del número de 
cuentas realizadas, a excepción del 
mencionado bit de nivel. En la 
práctica rotaremos B, introducire¬ 
mos el ya famoso bit, complemen¬ 
taremos y escribiremos en memo¬ 
ria. 

El bucle de muestreo se abando¬ 
nará en dos posibles circunstan¬ 
cias: 

1) Se realiza un ciclo completo 
de búsqueda sin detectar cambios 
de nivel. En este caso se realiza la 
operación descrita, se incrementa 
HL (dirección a introducir el pró¬ 
ximo dato) y se comprueba si he¬ 
mos llegado al final. Para esto ha¬ 
remos un OR entre H y L. Sólo en 
el caso de que ambos registros es¬ 
tén a 0 (esto es, HL = 0000) el re¬ 
sultado será cero, lo que se refleja¬ 
rá en el Zero Flag. Si llegamos al fi¬ 
nal devolvemos la posibilidad de 
responder a las interrupciones y 
pasamos al BASIC. 

2) Se detecta un cambio a la 
entrada. En este caso acudiremos a 
FLANCO, donde se invierte el 
contenido de C y se repiten las 
operaciones del caso anterior. 

Programa PLA Y 

Esta rutina es mucho más senci¬ 
lla. En función del bit de nivel car¬ 
garemos en A todo ceros o todo 
unos. Al ejecutar la instrución 
OUT (FEH), A, el contenido del 
acumulador se “desparramará” 
por el exterior manchando el bor¬ 
de de diferentes colores, teniendo 
también eco en el altavoz exterior. 

El proceso —muy semejante al 
anterior—, consistirá en repetir las 


salidas en la misma secuencia de 
entrada. 

DEFBO, ¡qué raro! 

Es‘real mente poco frecuente en¬ 
contrar este tipo de cosas en pro¬ 
gramas razonables (¡lo que ocurre 
es que éste no lo es!). El DEFB 
(DEFine Byte) es una instrucción 
del lenguaje ensamblador del Z 80 
que no tiene equivalente en el có¬ 
digo máquina de este uP. Es lo que 
se llama “pseudo op-code” (op 
codc: código de operación). Su mi¬ 
sión es la de poner en memoria el 
byte indicado, en este caso 0. El 
cero corresponde a una instruc¬ 
ción de código máquina que todo 
el mundo conoce bien, el NOP, 
cuya misión es básicamente la de 
no hacer nada (esto es, perder el 
tiempo miserablemente). 

No hay que asustarse de los 
DEFB ya que en nuestro caso re¬ 
sultan ser inofensivos NOP’s. No 
se ha empleado esta notación más 
clara, ya que entonces el listado re¬ 
sultaría enormemente largo. 

Ya sabemos qué son. Ahora sólo 
nos queda conocer para qué sir¬ 
ven. Hemos insistido mucho en 
que los procesos de grabación y re¬ 
producción han de llevarse a cabo 


con una puntualidad exquisita. De 
otra manera los resultados serán 
frustrantes. Quien disponga de un 
ensamblador y tiempo libre, puede 
comprobar resultados añadiendo o 
quitando ceros, esto es, alterando 
la temporización del proceso. 

Lo que se pretende es, simple¬ 
mente. igualar el tiempo que tar¬ 
dan en ejecutarse los diferentes bu¬ 
cles, sea cual sea el camino que se 
tome o la rutina en la que estemos. 
Estas “pérdidas de tiempo” con¬ 
troladas son una inestimable ayu¬ 
da para conseguir nuestros propó¬ 
sitos. 

En el listado en Ensamblador 
del programa se han indicado en la 
columna derecha el número de pe¬ 
ríodos de reloj necesarios para la 
ejecución de cada instrucción. De¬ 
jamos para el lector la comproba¬ 
ción de lo anteriormente expuesto. 
Recordamos que el Z 80 del Spec- 
trum tiene una frecuencia de reloj 
de 3.5 MHz, lo que significa que 
un periodo dura 290 ns. 

Confiamos que disfrute de unas 
agradables conversaciones con su 
amigo el Spectrum. ¡Y, en cual¬ 
quier caso, siempre es fácil hacerle 
callar! 

Luis M. Brugarolas 


Programa 3 

10 CLEAR 30000! LOAD ""CODE 
20 LET RE032768: LET PLAY=328 
34 

30 PRINT " Ponga en marcha el 
casette." ? '" Apriete alguna tecl 
a para empezar a grabar" 

40 FOR A~0 TO 100: NEXT A: PAU 
SE O: CLS : PRINT AT 10.13; FLAS 
H 1¡"GRABANDO": LET A=USR REO 
50 CLS ! BORDER O: PRINT "Apri 
ete:E para escuhar 
G para grabar" 

60 INPUT A$ 

70 IF A*= M g" THEN GQ TO 30 
80 IF A*="e" THEN LET A=4JSR P 
LAY 

90 GQ TO 50. 























































CHESS THE TURK 


Distribuidor: Sinclair Store* 
Precio: 1.250 Ptas. _ j 

Dejando aparte la deficiente traduc¬ 
ción, el único problema con el que nos 
encontramos es un juego £ ‘deftmsiado 
inteligente" por parte del ordenador: 
no nos deja hacer jugadas ilegales y 
cuando le pedimos ayuda nos orienta 
hada jugadas “desastrosas”. Un talento. 

El menú da una orientación rápida 
de las posibilidades del juego, hasta 14 
opciones diferentes. Veámoslas en for¬ 
ma resumida, 

1. juego nuevo. Para comenzar a 
jugar. 

2* Continúe juego antiguo. Para se¬ 
guir un juego anterior. 

3. Ajedrez blitz* Partidas centrá¬ 
rtelo j, 

4. DEMQ, El Turco juega contra 
sí mismo. 
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Control: Teclado. 
jugadores: Uno o dos , 
Gráficos: Se reconocen clara¬ 
mente las piezas, utilizándole tonos 
distintos según la opción inicial elegi¬ 
da de color o blanco y negro. 

Sonido: No tiene. 

Niveles de dificultad: Seis. 
Originalidad: Clásico juego 
del ajedrez 

Conclusión: Ciertamente no es 
un juego que podamos calificar de 
original o novedosa. Lo verdadera¬ 
mente importante de todo juego de 
ajedrez es que pueda desarrollar una 
capacidad de cálculo aceptable sin 
grandes demoras de tiempo\ Este 
cumple este requisito y además ofrece 
un variado menú de opciones para 
disfrutar del juego/deporte del aje¬ 
drez en sus diversas acepciones . 


Opción 1 del menú, 
con tos relojes en el 
margen derecho. 
Opción 6 del menú. 
Ei margen derecho 
muestra los* distintos 
movimientos. 


5. INPUT secuencia de pasos. Para 
dos jugadores, 

6. Pasos retrazables en el juego. 
Visión “retrospectiva" de las jugadas* 

7. EDIT pantalla o nueva posi¬ 
ción. Para partir de una posición deter¬ 
minada. 

8. LIST pasa a pantalla. Listado de 
movimientos en pantalla. 

9* IJST pasa a imprenta. Listado 
de movimientos en impresora. 

10. L1NE PRINT la pantalla* Im¬ 
presión de la pantalla, 

11. SAVE pasa a cinta. Se graban 
t o dos los m o v imí en tos, 

12* SAVE pantalla a cinta. Se gra¬ 
ba la pantalla. 

13, LOAD pasa de la cinta* Se car¬ 
gan todos los movimientos. 

14* LOAD pantalla de la cinta. Se 
carga la pantalla. 

Variadas opciones para todos los 


gustos, con buena presentación. La op¬ 
ción ó resulta especialmente vistosa al 
poder visualizar los movimientos de 
toda la partida^ con desplazamiento pi- 
xel a pixel vertical de las casillas afecta¬ 
das* La entrada de jugadas es otro buen 
ejemplo de la cuidada presentación; 
cuando se solicita ayuda se coloca la ju¬ 
gada en la línea de entrada y basta con 
teclear ENTER. 

Todo esto está muy bien, pero ade¬ 
más juega, Tiene seis niveles de juego, 
siendo los tiempos de respuesta aproxi¬ 
mados de 5, 10 y 90 segundos para tos 
tres primeros niveles; 10 y 60 minutos 
para el cuarto y quinto, y hasta ó horas 
para el sexto y último nivel. 

Mientras “piensa", se visualizan en 
pantalla las distintas posiciones que e! 
ordenador evalúa, antes de tomar la 
decisión definitiva* 




























































































BRUCE LEE 


puede ser mortal. Tres golpes suponen 
la muerte, disponiendo de cuatro vidas 
por juego. También ellos “abandonan 
la existencia” después de recibir tres 
golpes, pero tienen un número ilimita¬ 
do de vidas, con lo que sólo nos libra¬ 
mos de ellos temporalmente* 

Pero si ¡o que se quiere es alcanzar el 
objetivo final, para ello no sólo habrá 
de salir victorioso de las contiendas 
con el enemigo. El paso por el “labe¬ 
rinto de túneles” se consigue mediante 
las linternas que hay que atrapar con 


Bruce Lee Sé dispone 


diversos saltos (en ocasiones de un 
solo intento)* A ello se añade una difi¬ 
cultad adicional: el factor aleatorio de 
determinadas plantas que se abren y 
devoran a todo lo que pillan. 

i.as distintas pantallas están bien 
con seguidas, con efectos gráficos de 
buen calidad, pero sin duda su mayor 
originalidad y adicción lo constituye la 
lucha “cuerpo a cuerpo” con los incan¬ 
sables karatekas* Ello unido a ¡a necesi¬ 
dad de ir avanzando lentamente para 
alcanzar el objetivo final 


Bruce Lee pasa a la 
secunda fase del 
juego, eti busca de 
"lil Gran Mago” 


l - 

Control: Teclado, Joystick. 

Jugadores: Uno o das contra el 
ordenador o entre sí. 

Gráficos: Múltiples pantallas 
I con buenos y variados gráficos. 

Sonido: Distintos tonos quepue- 
| den activarse o desactivarse. 

Niveles de dificultad: No 
hay niveles, aunque ¿a dificultad va 
en aumento según se va avanzando * 

Originalidad: Buen juego sin 
competencia en el mercado, por el mo¬ 
mento. 

Conclusión: Ua adicción es su 
mejor característica, ya sea en la uti¬ 
lización de ¿as "técnicas marciales " 
en la búsqueda del '[gran mago ” o 
mejor aún, en combinar ambas situa¬ 
ciones. 


Distribuidor: Erbe, 
Precio: 2JOO pías. 


De inminente “estreno” para este 
mes, el juego de Bruce Lee tiene todos 
los requisitos para entrar en la lista de 
los más vendidos: una aventura en la 
que hay que sortear diversos peligros 
para llegar al objetivo final* Objetivo 
que en este caso es llegar a la morada 
del “Gran Sabio”, para obtener su ma¬ 
gia y poder* 

No se trata de un juego contrarreloj, 
y esto es importante tenerlo en cuenta 
a la hora de entrar en pelea o ir hacia el 
objetivo final, La lucha, lógicamente, se 
realiza mediante las artes marciales, 
consistente en golpes con las manos o 
con los pies, para defenderse del ene¬ 
migo que constantemente nos persi¬ 
gue. Los efectos de la lucha están tan 
bien conseguidos, que sólo con esto ya 
se justificaría el juego* 

En cuanto a los “enemigos”, sólo 
son dos, pero su efecto combinado 









































Aula 
¿ informática 

con Spectrum 


Comentábamos en el número anterior la problemática que 
representa la introducción de la informática en centros 
escolares, tanto en educadores como para profesionales de 

la informática. 


¿Q 



ué podemos hacer con 
los ordenadores en la 
escuela? La respuesta 
a esta pregunta no es 
sencilla. La enseñanza 
tiene una compleja organización 
de niveles, cursos, programas de 
estudio y distintos propósitos se¬ 
gún las edades del alumnado. Lo 
que podremos hacer en estos dife¬ 
rentes estamentos dependerá 
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mayormente de los planteamien¬ 
tos pedagógicos que los rigen y que 
muchas veces son insuficiente¬ 
mente claros. 

Muchos sostienen que la educa¬ 
ción primaria tiene como eje cen¬ 
tral la formación del alumno en 
habilidades básicas de lectura, es¬ 
critura y conocimientos generales 
de ciencias y letras. Sin embargo, 
este acento en la formación está 
frecuentemente contrastado con 
un terrible bombardeo de informa¬ 
ción. Tremendos manuales de di¬ 
ferentes asignaturas, enciclopedias 
y diccionarios rodean al niño, con¬ 
tradiciendo lo que aparentemente 
debería ser. Parece que la habili¬ 
dad más importante es la de me- 
morizar información para más tar¬ 
de escupirla en un examen. ¿Cuán¬ 
tas veces hemos oído las quejas de 
los profesores de matemáticas por 
las dificultades que tienen sus 
alumnos para resolver los dichosos 
“problemas”? Son estas hábil ida¬ 


do especialmente con esta finali¬ 
dad. Claro está que si lo que pensa¬ 
mos es que nuestros alumnos de¬ 
ban memorizar la Enciclopedia 
Británica como su mayor bien cul¬ 
tural, difícilmente podremos utili¬ 
zar un ordenador que esté al alcan¬ 
ce de nuestros medios económicos. 

El uso de los ordenadores depen¬ 


Un profesor puede 
utilizar los ordenadores 
sin ningún 
conocimiento de 
programación 


de de ios criterios pedagógicos ge¬ 
nerales que tengamos y de la labor 
que deseemos realizar. 

El tipo de enseñanza determina 
en mucho lo que podemos hacer 


Con un aula informática pode¬ 
mos desarrollar un trabajo en dos 
frentes: trabajar con lenguajes de 
programación y trabajar con pro¬ 
gramas educativos. 

Entendemos por programas edu¬ 
cativos no sólo aquellos que hayan 
sido concebidos para tratar un de¬ 
terminado tema,_ya sea de Geogra¬ 
fía o de Química, o para corregir 
en el mismo ciertas dificultades en 
la escritura. También pueden uti¬ 
lizarse ciertos programas como un 
procesador de textos con una fina¬ 
lidad educativa. Un procesador de 
textos, originariamente concebido 
para confeccionar cartas e infor¬ 
mes en una empresa, puede con¬ 
vertirse en una hermosa herra¬ 
mienta en manos del profesor o la 
profesora de literatura. ¿Por qué 
no escribir la redacción con el or¬ 
denador? ¿No es posible acaso rea¬ 
lizar un periódico estudiantil con 
este programa, creando así una ac¬ 
tividad enriqueeedora? 



des las que quizá deberíamos desa¬ 
rrollar mucho más. La posibilidad 
de trabajar los aspectos más creati¬ 
vos del intelecto, de construir he¬ 
rramientas sólidas de razonamien¬ 
to, de potenciar en última instan¬ 
cia el desarrollo intelectual de ni¬ 
ños y jóvenes está fuertemente vin¬ 
culada al. uso que podemos hacer 
del ordenador. El LOGO es un 
lenguaje de programación diseña- 


con un aula informática. No hare¬ 
mos lo mismo en una escuela de 
Básica que en un centro de forma¬ 
ción profesional administrativa. Es 
quizá innecesario que los alumnos 
de BUP trabajen con una tabla grá¬ 
fica. pero es muy útil en una escue¬ 
la de diseño. Lo que si podemos es¬ 
tablecer es un criterio general que 
nos sirva para todas estas distintas 
enseñanzas. 


Sobre este particular, es decir, 
sobre el software educativo, nos 
centraremos en futuros artículos. 

Este criterio general que hemos 
expuesto sobre el uso de un aula 
informática puede aclarar también 
un tema que preocupa a aquellos 
maestros y profesores que no se 
sienten muy entusiastas hacia la 
informática. 

Con razón, muchos ven en esto 





















































la necesidad de estudiar un tema 
nuevo y desconocido; la necesidad 
de reciclarse casi obligatoriamente 
en algo que no eligieron vocacio- 
nal mente. 

Esta confusión quizá se deba a 
que se reduce la utilización del 
a ufa informática a la enseñanza de 
lenguajes de programación. 

Para la secretaria de una empre¬ 
sa basta con que sepa cómo encen¬ 
der el equipo, cómo cargar el pro¬ 
grama y conocer el funcionamien¬ 
to del mismo para que pueda reali¬ 
zar sus anotaciones contables. No 



necesita en absoluto conocimiento 
alguno de programación y sin em¬ 
bargo puede realizar eficientemen¬ 
te su trabajo. 

De igual forma, un profesor pue¬ 
de utilizar los ordenadores del cen¬ 
tro sin ningún conocimiento de 
programación. Basta que sepa 
cómo funciona el aula, cómo se 
cargan los programas y cómo utili¬ 
zarlos para sacarles un buen pro¬ 
vecho. 

Con esto no queremos decir en 
absoluto que deban limitarse a 
ello, como tampoco pensamos que 
el aprendizaje de ciertos lenguajes 
de programación no Ies sea de uti- 



PktsyLogf* Dos buenos 


El Colegio Zurich de Barcelona, 
dedicado a la Enseñanza General 
Básica, es un buen ejemplo de aula 
informática con Spectrum. José 
Macias, director del centro, nos re¬ 
lata sus actividades: “Actualmente 
tenemos doce Spectrum Plus, por 
los que pasan todos los alumnos. 
Nuestro interés es la adecuación de 
la informática a la estructura peda¬ 
gógica genera) del centro, a partir 
de Itís departamentos de ciencias y 
más concretamente de matemáti¬ 
cas, donde vemos aplicaciones in¬ 
mediatas. Pero también puede ha¬ 
ber otros departamentos que se 
aprovechen de ello, utilizando los 
microordenadores con programas 
educativos. 

No somos partidarios de la ense¬ 
ñanza asistida por ordenador, y 
para nosotros la alternativa son 
lenguajes como el Logo. Al niño te 
resulta muy difícil seguir un razo¬ 
namiento lógico, simplemente por¬ 
que lo que un profesor puede entre¬ 
garle como material de trabajo en 
clase es algo tremendamente abs¬ 
tracto. Con el Logo el niño tiene 
que estructurarse mentalmente y 
tiene que seguir esta estructura¬ 
ción, de otra forma no llegará a ese 
fin que él pretende.” 

El Logo no es su única herra¬ 



mienta. El criticado BASIC tam¬ 
bién está presente. “Utilizamos 
BASIC por una razón sencilla: 
cuando los chicos terminen sus 
ocho cursos de básica y salgan a la 
calle, se encontrarán en cada esqui¬ 
na con él. Intentamos darles unas 
nociones muy generales, para que 
lleguen a poder realizar pequeños 
programas y prácticas dentro del 


contexto de las materias de cien¬ 
cias que actualmente estudian.” Y 
no sólo lenguajes, la elección de 
programas educativos no es menos 
importante: “Con los pequeños uti¬ 
lizamos programas pensados para 
que el chico se vaya familiarizando 
con el ordenador. 

Indirectamente esto les supone 
toda una serie de refuerzos con el 
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lidad. Lo que criticamos es que el 
uso del aula informática quede re¬ 
ducido a un determinado semina¬ 
rio en el instituto o al profesor que 
conoce el tema en la escuela. 

Si bien es importante que ía ex¬ 
periencia descanse en determina¬ 
dos reponsables. el aula informáti¬ 
ca ofrece un instrumento técnico 
de gran valos para ser aprovechado 
por el conjunto de los profesores, 
sean de ciencias o de letras, sepan 
o no lenguajes de programación. 

El proyecto pedagógico se con¬ 
vierte, por tanto, en la elección 
apropiada de un lenguaje de pro¬ 
gramación con el que trabajar, asi 


como en la selección de los progra¬ 
mas educativos que se utilizarán. 

Para terminar, desearíamos que 
nos hicierais llegas vuestras expe¬ 
riencias sobre este tema y vuestras 
consultas o críticas si las hubiera. 

Deseamos que esta sección con¬ 
tenga un correo de lectores que 
vinculados a la educación deseen 
recibir información y asistencia so¬ 
bre los problemas que se puedan 
encontrar en la escuela trabajando 
con microodenadores. 

Miguel Figini 
Miembro del equipo 
de asesores de Ioshua 


amigos 


abecedario, mayúsculas y minúscu¬ 
las, etc. Con los mayores este tipo 
de juegos permite desarrollar la 
fantasía y toda una serie de aspec¬ 
tos que en clase difícilmente tienen 
lugar.’' 

Muchas son las experiencias que 
se están llevando a cabo en este te¬ 
rreno, y los resultados no siempre 
son satisfactorios. José Macias co¬ 
menzó esta labor hace ya tres años, 
aunque no todo saldría bien al prin¬ 
cipio: "Comenzamos con cursos 
fuera de las horas de clase y la ex¬ 
periencia resultó bastante desgra¬ 
ciada. Es un grave error que no re¬ 
comendaría absolutamente a nadie. 
Este no es camino para incorporar 
la informática a la escuela, ya que 


se convierte en un simple añadido. 

Otro aspecto igualmente impoi 
tante es la respuesta de profesores 
y padres. "Si no hubiera habido un 
mínimo de personas interesadas en 
el tema, difícilmente se hubiere 
puesto en marcha esta experiencia. 
El resto del profesorado está en 
una actitud de espera, a ver lo que 


“No se puede hacer 
de la informática 
un añadido más” 


sucede. Saben perfectamente que 
estamos en una etapa de búsqueda, 
de experimentación. Aunque no 
hayan participado en la idea de en¬ 
trada, saben que puede haber una 
aplicación en sus diferentes cam¬ 
pos. En cuanto a los padres, la 
reacción ha sido positiva al cíen 
por cien, y lo apoyan económica¬ 
mente.” Una buena participación o 
a! menos necesaria, aunque la utili¬ 
zación de ordenadores de bajo pre¬ 
cio líate que no se "disparen” los 
costes, como puntualiza José Ma¬ 
clas. "Es menos costoso de lo que 
realmente parece. Estamos inten¬ 
tando dar informática hasta octavo 
de básica y de alguna forma menta- 
lizarlos de que e< material que ne¬ 
cesitan no es excesivamente sofisti¬ 
cado. Para cumplir esta misión el 
Plus es suficiente,” 

"La informática tiene una im¬ 
portancia muy grande en el futuro 
de nuestra profesión y de nuestra 
dedicación. Yo recomiendo que lo 
tome-! en serio y no intenten jamás 
hacer de ella un añadido más, como 
tanca.; actividades que se realizan 
fuera de las horas de clases”, con¬ 
cluye José Maclas, quien se mues¬ 
tra particularmente orgulloso de 
ios logros conseguidos. 

























COMERCIAL 


S on cada vez más los peque¬ 
ños empresarios o comer¬ 
ciantes que han acudido al 

- J Spectrum como ordenador 

con el que dar los primeros 
pasos en el mundo de la informáti¬ 
ca. Las razones son variadas; quizá 
lo compró “para que jueguen los 
niños”, quizá porque la inversión 
es pequeña y “no se arriesga mu¬ 
cho”. Para servir a este tipo de 
usuarios han ido apareciendo pro¬ 
gramas profesionales; contabilida¬ 
des, control de stocks, etcétera. 

Recientemente ALSI ha puesto 
a la venta su programa de factura - 
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-MENU- 


1- CREACION 

2- MODIFICAR DATOS fiRCHIUOS 

3- LISTADO DATOS fiRCHIUOS 

4- - INTRODUCIR DATOS fiRCHIUOS 

5- IMPRESION 

6- BORRAR DATOS fiRCHIUOS 

7- CLASIFICACION DATOS 

S- CAMBIO FORMATO DE IMPRESION 

3- CAMBIO DE FICHEROS 

0- DEJAR PROGRAMA 
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£- COL. DE IMP. "PRECIO" 
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ción. Se trata de un programa que 
integra varias funciones, siendo su 
propósito facilitar la gestión de la 
pequeña empresa o comercio. Con. 
él se puede facturar, hacer pedidos, 
controlar el stock, elaborar listas 
de precios y de clientes. Para ello 
el programa maneja hasta veinte 
ficheros diferentes, diez de clien¬ 


tes, proveedores o distribuidores y 
otros diez de artículos. 

Cada.fichero de clientes puede 
manejar hasta 30, y 100 cada fi¬ 
chero de artículos. Siendo una 
aplicación donde es esencial el al¬ 
macenamiento de datos, el progra¬ 
ma trabaja en microdrive. Para im¬ 
primir facturas será necesario utili¬ 


zar impresoras de 80 columnas 
cuyos códigos para caracteres 
compromidos y doble ancho coin¬ 
cidan con los de las impresoras Ep¬ 
son, pudiendo utilizar la salida 
RS232 del Interface 1 o un interfa¬ 
ce Centronics Kempston o Indes- 
comp. 

Tras la carga del programa por 
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primera vez, será necesario abrir, 
como mínimo, un fichero de ar¬ 
tículos y otro de clientes. Además, 
el programa nos preguntará el 
nombre, dirección, teléfono, nu¬ 
mero de identificación fiscal 'y 
margen de beneficio. Estos datos 
serán utilizados automáticamente 
por el programa como cabecera de 
todas nuestras facturas, Después se 
nos pregunta el tipo de impresora 
que tenemos (Serie o Paralelo) y si 
es RS232, la velocidad de transmi¬ 
sión a que trabaja (en baudios). 

Llegamos así al Menú Principal, 
que tiene diez opciones: Creación, 
Modificación, Listados, Introduc¬ 
ción, Impresión, Borrado, Clasifi¬ 
cación, Cambio de formato de im¬ 
presión, Cambio de fichero y dejar 
el programa. 

Desde este momento, podremos 
empezar a introducir artículos en 
el fichero. Por cada uno se debe in¬ 
troducir el código de identifica¬ 
ción, el nombre, el número de uni¬ 
dades en stock y el precio de venta 
al público. El precio de coste será 
calculado automáticamente por el 
programa a partir del margen de 
beneficio. 

La introducción de clientes se 
realiza de una manera parecida: se 
nos pregunta nombre, código, di¬ 
rección y telefono. Las opciones de 
modificación de artículos y clien¬ 
tes son parecidas, aunque en este 
caso el programa nos pregunta pri¬ 
mero por la ficha que queremos 
cambiar. 

Se pueden utilizar las opciones 
de listado de clientes y artículos 
para obtener copias impresas (o en 
pantalla) de la lista de artículos o 
del fichero de direcciones. La op¬ 
ción de clasificación permite orde¬ 
nar el fichero de artículos, bien por 
orden numérico (de códigos) o de 
nombres. El fichero de clientes 
sólo se puede clasificar por orden 
alfabético. 

La opción de creación nos da 
paso al meollo del programa: cua¬ 
tro opciones que nos permiten ela¬ 
borar facturas, ofertas, pedidos o 


■albaranes. En los cuatro casos, el 
ordenador empieza por preguntar¬ 
nos el nombre del cliente o provee¬ 
dor, Si el nombre está en el fichero 
utiliza los datos de éste; en caso 
contrario nos pregunta el resto de 
los datos y pasa a incluirlo para re¬ 
ferencias posteriores. Tras el nom¬ 
bre del cliente se nos pregunta la 
fecha, después se pueden incluir 
los códigos de referencia de hasta 
10 artículos. 

Si el código no está presente en 
el fichero de artículos, el programa 
nos preguntará automáticamente 
el resto de los datos y lo incluirá en 


el stock, ‘'poniendo” un ejemplar 
en el almacén. Esto último no re¬ 
sulta deseable en muchas ocasio¬ 
nes. Por ejemplo, ofertamos un ar¬ 
tículo que no tenemos en almacén. 
El programa nos pregunta los da¬ 
tos del producto. Si después hace¬ 
mos un listado de existencias nos 
encontramos con que aparece un 
ejemplar. 

Al acabar la lista de artículos, el 
programa nos pregunta la forma de 
pago. Esta se puede elegir entre 
cinco predefinidas o teclear la fór¬ 
mula elegida. También se nos pide 
la entrega inicial (línea de texto 
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1 Articulo primero 
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11,- ‘ 
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que podemos especificar a volun¬ 
tad) y otra línea de importes y ven¬ 
cimientos. El ordenador rellena los 
totales, preguntándonos ITE y des¬ 
cuento. Presentamos algún ejem¬ 
plo del formato de impresión dei 
programa, con facturas, albaranes 
y ofertas ficticias, así como un lis¬ 
tado de artículos y clientes de 
nuestra hipotéticaempresa. 

Después de imprimir una serie 
de facturas, el programa nos pre¬ 
gunta si deseamos que permanez¬ 
can en memoria. Cuando las bo¬ 
rremos, el programa actualizará el 
almacén con las salidas (facturas) o 
entradas (pedidos) realizadas. No 
existe más posibilidad, si nos he¬ 
mos equivocado al realizar una 
factura, que comenzar de nuevo 
con el programa. Si lo hacemos sa¬ 
cando el cartucho, los cambios 
realizados en la sesión no queda¬ 
rán reflejados en el programa. 

El principal defecto del progra¬ 
ma es la obligación de trabajar con 
un margen de beneficio igual para 
todos los artículos. Otro problema 
que plantea es la imposibilidad de 


■ míSTROS MARTINEZ, S.L 


Arsenal,34 
fladríd 

28032 MUID 

OFERTA 

fecha nuil. 

12,04.85 00002 

foraa de pago; A CONVENIA 
cofl. concepto 

0001 Interface 4 
0002 YN Espectro 
0012 Upresora Katrit ’JAPAN' serie 
0010 Cable Sablazo Centronics 


Tel: 7Ó54321 

012 


TUHICKJ 



Gran Via, 51 



Burgos 



BUREOS 


eant. 

precio 

i aporte 

1 

15400.- 

15400. 

1 

23400.- 

23400.' 

1 

54000,- 

54000 r * 

1 

5300.- 

5300.- 


modificar o borrar una factura in- lento en su ejecución y la capaci- 
correcta. Por lo demás, no resulta dad es acorde con los objetivos y 




Eugenio Cbeda es un 
"enamorado” de ios orde¬ 
nadores. Ahora sustituido 
por el personal de IBM, el 
Spectrum ha llevado sobre 
"sus espaldas” el control 
de stocks de la pequeña 
tienda de recambios y 
compra-venta de coches. 
El se hizo sus propios pro¬ 
gramas y podría haberse 
ahorrado mucho tiempo 
—“he invertido más de 
500 horas en los progra¬ 
mas”— si hubiese contado 
con un buen programa de 
facturación. 

"El problema es que 


hay programas para médi¬ 
cos, abogados..., pero no 
para los automovilistas. 
Por eso me metí a hacer 
mis propios programas. 
Con ellos realizo la factu¬ 
ración de alquileres de co¬ 
ches, compra-venta, mai- 
ling y, sobre todo, el con¬ 
trol de stocks. El Spot- 
trum ha funcionado siem¬ 
pre bien y sin ninguna 
avería, pero se me había 
quedado pequeño, a pesar 
de sus 47 conc í ‘ r ' lY ' c 
artículo. El almaci 
miento en cinta es uno 
sus mayores probemas 
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0006 lipresora Teraica BLIRNS 

0012 lapresora Matriz 'JAPAN’ serie 

0010 Sable Sablazo Centronics 
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l 

5300,- 
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posibilidades del Spectrum. La 
empresa que lo comercializa nos 
comentó que estaban trabajando 
en una versión para QL del mismo 
programa. Esperamos que esta ver¬ 
sión saque partido de la superior 
memoria y características gráficas 
dej QL, resultando una aplicación 
más acabada que la que comenta¬ 
mos. 


Resumiendo sus principales ca¬ 
racterísticas, un programa que nos 
ayuda en la gestión de almacén y 
facturación de pequeñas empresas 
y comercios. Util, aunque tenga li¬ 
mitaciones que ya hemos comen¬ 
tado. La presentación gráfica no 
está excesivamente cuidada, aun¬ 
que donde el programa “da la ta¬ 
lla” es en la impresora. 


003 

INTERSONICA 
Pedro López, 25 
Madrid ' 

20003 MADRID 

024 

NICROTIENDA 
San femando, 15 
Alicante 
03003 ALICANTE 

002 

NJCRO-TUYO 
San Pedro, 124 
Toledo 
TOLEDO 

004 

30FT-VARE 

Corte Catalanes, 84 

Barcelona 

08012 BARCELONA 

002 
TIRSA 
Pi, 24 

Hospitalet de Llobregat 
08124 BARCELONA 


Pense en el QL como sus¬ 
tituto, pero tuve una bue¬ 
na oferta del PC...” 

Miembro de la Asocia¬ 
ción Nacional de Vende¬ 
dores de Vehículos a Mo¬ 
tor, se comunica habitual¬ 
mente por teléfono para 
recabar informes sobre la 
legalidad o no de determi¬ 
nadas operaciones: “Aho¬ 
ra es muy lento. Tendre¬ 
mos que ir en el futuro a 
estar conectados a una 
base de datos...” 

Después de trabajar in- 
cansablemente con el 


Spectrum, no duda en cali¬ 
ficarle de una máquina ex¬ 
traordinaria, aunque 
siempre trabajaba en 
casa: “Lo tuve que quitar 
de la tienda porque a la 
geote no le parecía serio. 
Entraban y se creían que 
estábamos jugando a los 
marcianitos.” Lamenta¬ 
blemente existe esta 
creencia, y aunque sea el 
ordenador con mayor nú¬ 
mero de juegos del merca¬ 
do, también son muchos 
sus programas de aplica¬ 
ciones. 
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Descubrimiento 
de un nuevo 
lenguaje: 


PASCAL 


U na vez vistas las variables 
de tipo estándar dentro del 
PASCAL, vamos a hablar 
en esta ocasión de otro tipo 
de datos y variables, las 
TYPE. tanto simples como com¬ 
puestas. 

Dentro de las simples tenemos 
los tipos enumerados o escalares, 
los conjuntos y el tipo subrango o 
intervalo. Al hablar de las com¬ 
puestas nos estamos refiriendo a 
las matrices, llamadas en PASCAL 
arrays. 

Variables TYPE simples 

Al igual que los demás tipos ya 
vistos, es necesario declararlas en 
su lugar correspondiente. Si nos fi¬ 
jamos en el diagrama general de un 
programa Pascal, visto en capítu¬ 
los anteriores, observamos que este 
lugar está entre la declaración de 
constantes y variables y que deben 
ir precedidas por la palabra reser¬ 
vada TYPE. 

Tipos enumerados 
o escalares 

Este lenguaje, aparte de propor¬ 
cionar los tipos de variable están¬ 
dar, permite definir nuestros pro¬ 
pios tipos de datos, conseguimos 
esto mediante el siguiente tipo de 
declaración: 


TYPE 

T = (A1, A2..... An): 


En los siguientes ejemplos indi¬ 
camos que la variable juegos puede 
tomar cualquiera de los cuatro va¬ 
lores que se indican, pero nunca 
otro de los no especificados. Lo 
mismo ocurre con la variable mar¬ 
cas. 


TYPE 

juegos = (tute, mus, canasta, 
poker); 

Marcas = (renault, seat. Ci¬ 
troen, volvo); 


Si queremos utilizar estos tipos 
dentro de un programa, tendremos 
que declarar variables del tipo pre¬ 
viamente definido. Así por ejem¬ 
plo: 


VAR 

mi juego: juegos; 


Dada esta declaración las asig¬ 
naciones: 


mi juego: = mus; o mi juego: - 
tute: 


serían perfectamente válidas. (Ver 
diagrama sintáctico en figura 1.) 

Otro aspecto importante a resal¬ 
tar son los operadores que pode¬ 
mos utilizar con las variables de 
tipo escalar. Solamente está per¬ 
mitido utilizar los operadores de 
relación, obteniendo como resulta¬ 
do de las expresiones un valor boo- 
leano que como sabemos toma los 
valores TRUE o FALSE. 

El orden de los elementos dentro 
de una lista de tipos enumerados 
está definido por la posición en 
que éstos se colocan en la declara¬ 
ción. Así, para nuestro ejemplo, el 
primer elemento será tute, el se¬ 
gundo mus... 

Expresiones perfectamente váli¬ 
das dentro de un programa po¬ 
drían ser: 


dando como resultado de la eva¬ 
luación TRUE y FALSE, respecti¬ 
vamente. 

Como ya vimos al estudiar los 
datos de tipo carácter, existen tres 
funciones incorporadas del Pascal 
que nos pueden ser muy útiles 
para trabajar con este tipo de da¬ 
tos. Estas funciones son PRED, 
SUCC y ORD. 

Recordemos que las funciones 
PRED y SUCC operan con tipos 
escalares y devuelven el elemento 
anterior y posterior, respectiva¬ 
mente, dentro de la lista de ele¬ 
mentos de la declaración, mientras 
que la función ORD nos devuelve 
un valor entero, que indica la posi¬ 
ción del elemento en cuestión den¬ 
tro de dicha lista. Hay que tener en 
cuenta el primer elemento de la 
lista que tiene el valor ordinal 0, y 
no I, como cabría suponer. 

En nuestros ejemplos; 


ORD (mus) = 1 
PRED (poker) = canasta 
SUCC (seat) = citroen 
ORD (citroen) = 2 
PRED (seat) = renault 
etc. 


Tipo subrango 

También llamado intervalo. 
Mediante este tipo podemos decla¬ 
rar variables que están siempre 
dentro de un margen, dando el lí¬ 
mite superior e inferior y definien¬ 
do asi un intervalo. 


tute < mus. citroen > volvo. 


Figura 1 
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La forma de definición es: 


TYPE 

T = liminLlirnsup; 


siendo iiminfy iimsup constantes. 

Estas constantes que delimitan 
el intervalo pueden ser de tipo in¬ 
te ger, char o del tipo escalar visto 
anteriormente, pero nunca de tipo 
real. (Ver diagrama sintáctico en 
figura 2.) 

Ejemplos de declaraciones de 
datos de tipo subrango son: 


VAR 

dígito: 

laborables: lunes., viernes; 


Para esta última declaración, 
previamente deberíamos haber de¬ 
finido el tipo de datos día-semana 
de la siguiente forma: 


TYPE 

diasemana - (lunes, martes, 
miércoles, jueves, viernes, 
sábado, domingo); 


Existe un pequeño problema 
con el manejo del tipo subrango: 
salirse de los límites impuestos. 
Aunque en principio no sea un 
error sintáctico el error aparecerá 
en tiempo de ejecución. Veamos lo 
con un ejemplo: 



TYPE 

intervalo = 1.. 10; 

VAR 

número: intervalo; 

La asignación número: = I 1 es 
perfectamente válida sintáctica¬ 
mente, y sin embargo ai ejecutar el 
programa aparecerá un error al sa¬ 
limos del rango impuesto para la 
variable número. 

Para aclarar lo expuesto el pro¬ 
grama 1 imprime todos los núme¬ 
ros de tres cifras de forma que la 
suma de los cubos de las cifras son 
iguales al número en cuestión. 


Programa 1 

PROGRAMcubo: 

TYPE 

dígito = 0.. 9; 

VAR 

i.j. k: dígito; 

BEGIN 

FOR i: =0 TO 9 DO 
FOR j: = 0 TO 9 OO 
FOR k: = 0 TO 9 DO 

IF i * i * i + j * j * j + k * k * 
k = 100 * i + 10 *j + k 
THEN writcln (i : I, j : 1, k 
: 1 ) 

END. 



Tipo SET o conjunto 

Todos sabemos lo que es un 
conjunto en matemáticas. Lo po¬ 
demos definir como una serie de 
objetos del mismo tipo, pero a la 
vez distintos entre sí. Los elemen¬ 
tos pertenecientes a dicho conjun- 
to se dice que son sus miembros. I 
(Ver diagrama sintáctico en figura 











































3.) El formato general del conjunto 
en Pascal es: 


Diferencia de conjuntos 


TYPE 

identificador = SET OF 
identificador; 


Matemáticamente, un conjunto 
se indica encerrando sus elementos 
entre llaves. En Pascal, por estar 
éstas reservadas a los comentarios, 
indicaremos un sel encerrando en¬ 
tre corchetes todos los elementos 
que lo componen. 



Para aclarar las operaciones que 
se pueden realizar con los conjun¬ 
tos haremos las siguientes declara¬ 
ciones previas: 


TYPE 

colores = (rojo, violeta, azul, 
gris, marrón); 

colorpintura = SET OF co¬ 
lores; 

VAR 

colorcoche: colorpintura; 


Conjuntos de nuestro ejemplo 
serán: 


Unión 

La unión de dos conjuntos re¬ 
presenta otro conjunto, el cual 
contiene los miembros de ambos. 
Matemáticamente esta operación 
se representa como AUB. En len¬ 
guaje Pascal, utilizaremos el ope¬ 
rador V. 

Un ejemplo de unión podría ser; 


[marrón] + [gris, verde] ~ [ma¬ 
rrón. gris, verde] 


[azul, gris] 

[rojo, marrón,azul]... 


Intersección 


Si un SET no tiene miembros se 
dice que está vacío (SET o conjun¬ 
to vacío) y su representación es: [] 

Terminada esta introducción a 
la teoría de los conjuntos, entra¬ 
mos a ver las distintas operaciones 
que podemos realizar con este tipo 
de datos. Las básicas son: unión, 
intersección, diferencia, pertenen¬ 
cia e inclusión. Veamos detenida¬ 
mente cada una de ellas: 


La intersección de dos conjuntos 
(A B) es otro conjunto que con¬ 
tiene los elementos que son miem¬ 
bros de ambos (A y B). El operador 
de intersección para nosotros es 
En los ejemplos antes defini¬ 
dos: 


[marrón, gris, violeta] * [azul, 
violeta, rojo] = [violeta] 


í 



La diferencia entre dos conjun¬ 
tos A y B es otro conjunto, C, que 
contiene los elementos pertene¬ 
cientes a A que no están en B. Por 
ejemplo: 


[azul, marrón gris] - [gris, viole¬ 
ta] = [azul, marrón] 


Es decir, son los elementos del 
primer conjunto que no están en el 
segundo. 


Pertenencia a un conjunto 

Utilizaremos la palabra reserva¬ 
da IN para indicar la pertenencia- 
de un elemento a un conjunto. El 
resultado de esta operación o eva¬ 
luación será siempre TRUE o 
FALSE. 

Por ejemplo: 


L 7' IN [‘0'..‘9’] al evaluarlo dará 
como resultado TRUE. 


Operadores de relación 
para comparar conjuntos 

A = B indica igualdad entre los 
conj untos A y B. 

A< >B indica desigualdad entre 
ellos. 

A > B indica que A contiene a 
B. 

AáB indica que A está inclui¬ 
do en B. 

El resultado de todas estas ex¬ 
presiones no puede ser otro que 
TRUE o FALSE. 

Para nuestros ejemplos: 

[rojo, marrón, violeta] [viole¬ 
ta, rojo] es TRUE, ya que el pri¬ 
mer conjunto contiene todos los 
elementos del segundo. 

El programa 2 vacía un conjunto 
de elementos, llenando otro con 
todos los números primos conteni¬ 
dos entre dos y treinta. 



































Exclusivo pana tectonea de 
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BLACK HA WK 

Usted es ufl pilota de pruebas 
a II ame me entre nao-o para pilo¬ 
tar tí avión mis destructivo has- 
la ahora creado. Cas pantallas 
con tas* 30 n iw$i«» m habilidad 

Prnclq; 1,550 pías, 


DELTA WING 

□ella Wmfl es un avanzada tu* 
mutiCnO de cámbate en vuelo 
Ha sido diseñado .para par la 
escáleme 'sensación' de los 
giros y vollereias de la alta 
vStóCid&d en vuelo. Con 15 con¬ 
troles independíenles y aviones 
de alague enemigos para derri¬ 
bar, esta programa le nava a 
uSléd y a Su Spactrum al limite. 
Dtíta VYmg también permite co¬ 
nectar dos ordenadores Spec « 
irum para lugar unocürstra atrp 
medianía el mtgrface i 


DANGER MOUSE 

Et malvado Barón Sitas Gratín, 
back ha construido un androide 
que Danger Wouse debe des 
CroiT Sin perder un momento 
Guie a Danger Wouse y a Peo- 
rol d a través de la espesa jungla 
basta Hl lugar donde se encuen¬ 
tre bí Barón, y después detén¬ 
gala ames de que sea demasia¬ 
do tarde 

L Puede usted ayudar a Danger 
Mau&e a salvar tí mundo^ 

Precio: 1.550 pta&, 


&PECIAI DELIVERV 
Síirus Clüus se encuentra meii- 
dP en un [ambla lia: se durmió 
en ios laureles y ahora do tiene 
Suficientes regalas pare violara 
todos ios «m pacíanles niños. 
Ayude a Santa Ciaos a recoger 
regalos adicionales y después a 
deics ndar sobre ios telados pe¬ 
ra entregar tos regatos inlfOdU' 
eiémíose por tas diversas chi¬ 
meneas 

* Tres pantanas rodamos 
i Amplia animación grálica y 
música. 


Predo: 1,550 ptas. 


TOWER OF EVHL 
lArTiésguaje 1 

¿Puede uitad recuperar 911ago¬ 
ra perdido^ Una acción que 
d>SCurr& a Iravés de 4Q o mas 
habitaciones tfl «Seguran horas 
do juega que cautivara su aten¬ 
ción. 

* Numero de jugadores uno 

* Control jóystick p lecladQ 

* Das pantallas de g-ra freos dé 
acción rápida 

■ El ViC-20 requiere un cadu 
cho BK 


RtVgPt RESCUE 

Un equipo se Mti portantes cien- 
1 ¡Ticos han quedado qlrapíMJ&s 
en una peligrosa jungla y la 
unma manera da sacarlos; de allí 
ea a tr$vé$ del no Usted as e! 
propietario de una pótenla Fleo 
reborda y &u traba|0 es resca¬ 
tarlos 

Navegar a través da uno de ios 
mis salvaiaa y tarlu-PJOS- nos del 
mundo no msulEa fací pero 
usted debe dirigir su magnifica 
nave cq roe n | a grn ba so riea nd o 
pequeñas ralas avilando eoe&- 
dulas y renos. Flotantes a su 
paso DisFrule la rapidé y tífcdi- 
tenté acción en esta juego de 
alta energía La acción en la 
pantalla rodante y el magnifico 
sañuda y gráficos le aseguran 
iórg&s npras de diversión 


Precio; 1.550 pías. 


Precio: 1,550 ptaft. 


Preolo: 1,550 plae 


* 


Recorte y envíe este cupón HOY MISMO a. 1NFODIS, S.A, .Bravo Murillo* 377-5- w *A. 28020 MADKQ) 
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ENVIE A MI DOMICILIO 

LA CASSETTE O CASSETTES RELACIONADAS A CONTINUACION 
EL IMPORTE LO ABONARE: 

POR CHEQUE !Z CONTRA REEMBOLSO □ CON TAKÍETA DE CREDITO C 

American Euprea* __ Visa Interbani „ Fecha de caducidad _ 


Numero de mi Tarieia 1 II 

Nombre ___ ___ . . _„__ 

Dirección _ ________ _— ____ 

Ciudad ____ _ DP 

Provincia ______________________ 


Precio: 1.550 ptafi. 

flOAD RACER 

Adelanta ai primer cocha y a otra mas 
&u pulso se acelera y ¿ tensión crece 
¿podra l-omar -a delantera y ganar ai 
tro red? 


Precio: 1.550 pías 

GQLD RUS'H 

La emocionan té aventura de (a bús¬ 
queda dé oro en un e-*1r{ifio planeta 
llamado Orón ¿,Oué peligros le aguar¬ 
dan 7 


cantidad 

producto 

ptas. 

total 


























SIN MAS GASTOS DE ENVIO 











































































Programa 2 

PROGRAM CONJUNTO; 
CONST 
N^30; 

TYPE 

ENT = 1 „ 30; 

VAR 

PR, CR: SET OF ENT; 
NUM: ENTi 
1:tNTEGF.R; 

BEG1N 
PR: = 0í 
CR: = [2..Nj; 

NUM: = 2; 

REPEAT 

WHILE NOT (NUM IN 
CR) DO NUM: - NUM + 

l; 

PR: = PR + [NUM]; 
WR1TE (NUM); 

1: = NUM; 

WHÍLE UNDO BE- 
G1N 

CR:-CR-[I]; 
l: = l + NUM 
END; 

UNTILCR = [] 

END. 


Para terminar con este capítulo, 
veremos la última sentencia de 
control que nos queda, y que utili¬ 
za mucho las variables TYPE, de 
las que hemos venido hablando. 

Sentencia CASE 

Mediante la sentencia 1F, tenía¬ 
mos la posibilidad de elegir una de 



entre dos alternativas posibles. 
Pero puede ocurrir que en un pro¬ 
grama deseemos elegir una alter¬ 
nativa entre varias (más de dos). 
En estos casos será necesaria la 
sentencia CASE. (Ver diagrama 
sintáctico en figura 4.) 

El formato general de la senten¬ 
cia es: 

CASE expresión OF 
el: tratamiento 1; 
e2: tratamiento 2; 


en: tratamiento n: 
END. 


Figura 4 



De esta forma, CASE selecciona 
aquella sentencia cuya constante 
sea igual al valor actual de la ex¬ 
presión. Si no existiera la etiqueta 
correspondiente, el efecto es inde¬ 
finido. Algunos compiladores tie¬ 
nen la opción OTHERS para el 
caso en que la etiqueta dada no 
exista. Con un ejemplo entendere¬ 
mos mejor esta sentencia: El pro¬ 
grama 3 efectúa una de las cuatro 
operaciones básicas, dependiendo 
del valor de una variable. 


Programa 3 


PROGRAM OPERACIONES; 
TYPE 

LIMITE = 0.. 4; 

VAR 

OP: LIMITE; 

A, B. R : REAL; 

BEGIN 

READ (A, B, OP): 

CASE OP OF 
0: R: = A B: 

1:R: = A-B: 

2: R: = A B; 

3: R: = A DIV B; 

4: R: = A/B; 

END; 

WRITE (‘EL RESULTA¬ 
DO ES: \ R) 

END. 


En el próximo capitulo hablare¬ 
mos sobre las matrices dentro del 
Pascal, así como de los registros. 

José R. Herreros 
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SIN NECESIDAD DE ENCUADERNACION 


pRtC'O 




^00pws_ 


Para hacer su pedido, rellene este cupón HOY MISMO 
_ _ . y envíelo a: 

MosMctrun sm ° m 

r Tel. 733 96 62 - 28020 MADRID 


Ruego me envíen tos siguientes ejemplares atrasados de TÜDOS- 
PECTRUM — ... ... al precio de 250 pts. 

Por favor envíenme . tapas para la encuadernación de mis 

ejemplares de TODOSPEGTRUM, ai precio de 600 pts. más gastos de envío. 
El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON Mí TARJETA DE 
CREDITO □ AMERICAN EXPRESS O VISA □ INTERRANK 

Número de mi tarjeta; | | | 1 | | 1 1 | | i TTTTT ! II 1 .1 1 1 I Ll.J 

Fecha de caducidad .....,. Firma 

NOM BRE ... . .. w .......... 

DIRECCION .., ... 

CIUDAD ..... C P. 

PROVINCIA ...,.. . .. 


(cada tapa es para 6 ejemplares) 


Complete su colección de 

Mospectrun 

A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Núm. 1 ‘250 pts. 

Cómo usar ei microdrive/Progra- 
maciún Basic/Ampllación Basicare/ 
Rutina d&spertadof/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
ce su Spectrum/Programas. 


Núm. 3 *250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gréftcos con eí VU“3D/Len- 
guaje Forth/Archivos en mierodrive/ 
Programación de un interface de im- 
presora/Prog ramas. 


Núm. 5 *250 pts. 

Floppys para Specirum/Diseño asis¬ 
tido por ordenatior/64 Caracteres por 
línea/Juego de la vida/Pascal/Así ha¬ 
cemos las portadas/Comrol de eva- 
iuaciones/Programas. 


Núm. 2*250 pts. 

Gráficos profesipnales/Desplaza- 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Prog ramas de utilidad pa¬ 
ra microdrive/Rutina reset en código 
máquina/Análisis dei editor de textos 
Tasword/lnterfaces para impresoras/ 
Programas. 


Núm. 4 *250 pts. 

De profesión programador/Consola 
para el Spectrum/Comparación códi¬ 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro¬ 
gramas. 


Núm. 6*250 pts. 

Representación de funciones/Todos 
los caminos conducen a la RÜM/Jue- 
gos/Pascal/Construcción de un lápiz 
Óptico/Programas de gestión. El SITI/ 
Logo; tortugas para todos/lnterrup- 
ciones del Z-Sü/Programas 


Püt¿i ampiar el BASIC 


IUhwí ii*: rJtatdM (Hi tnferCKlriv*? 

PTtKjr.iií*ii < . B Hi BASIC 


DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 


Mospectrun 

















WAFADRIVE 


Entre la lentitud del cassette y 
los precios exorbitantes de las uni¬ 
dades de diskettes, algunas casas de 
hardware han trabajado en una al¬ 
ternativa de compromiso. 

El Wafadrive es el resultado de 
los esfuerzos de Rotronics para 
conseguir un medio de almacena¬ 
miento con mejores características 
que el cassette. Una caja de color 
negro encierra dos unidades de al¬ 
macenamiento, una salida Centro¬ 
nics y un interface RS232. Los dri- 
ves utilizan un sistema de cinta de 
video en bucle sin fin, con una ca¬ 
beza de cassette (monaural) y ca¬ 
pacidades de 16, 64 y 128 K des¬ 
pués de formatear. 

A los lectores que conozcan el 
microdrive les resultará familiar la 
descripción del Wafadrive: existe 
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un gran parecido entre los dos sis¬ 
tema de almacenamiento. El pro¬ 
cedimiento de ampliar el BASIC es 
el mismo en ambos, los nuevos co¬ 
mandos son muy parecidos y el sis¬ 
tema de almacenamiento es el mis¬ 
mo. Los dos periféricos son incom¬ 
patibles, ya que utilizan el mismo 
sistema de paginación. 

Si bien la velocidad de acceso no 
es muy grande, el sistema tiene 
grandes ventajas sobre el cassette: 
el ordenador realiza por nosotros 
la operación de localizar el princi¬ 
pio del fichero, cargarlo o grabarlo 
y verificarlo. Veamos los princi¬ 
pios generales de funcionamiento 
de este periférico. 

El primer lugar, la cinta debe ser 
«formateada». El ordenador la di¬ 
vide en pequeños bloques, en cada 


Yde regalo... 


un 



Siguiendo la tendencia de rega¬ 
lar programas a los compradores 
de ordenadores y periféricos, Ro¬ 
tronics adjunta al Wafadrive un 
cartucho de 16 K que contiene un 
procesador de texto (Spectral Wri- 
ter). Un programa de utilidad que 
nos ayuda a redactar trabajos, car¬ 
tas o documentos. El ancho de los 
documentos es de 64 caracteres, 
que permite la impresión a 80 co¬ 


lumnas dejando un margen de 8 ca¬ 
racteres a ambos lados del texto; 
tiene, en cambio, el inconveniente 
de que los caracteres son muy poco 
legibles en pantalla, al tener sólo 4 
pixels de ancho. 

La principal ventaja del Spectral 
Writer sobre otros procesadores de 
texto para Spectrum es su diseño a 
la medida: al haber sido construido 
pensando específicamente en los 


interfaces del Wafadrive, el usua¬ 
rio no tiene necesidad de k ‘par- 
chear” el programa para que fun¬ 
cione con su impresora. Por esta 
misma razón, el código es muy 
compacto y permite documentos 
más largos (352 líneas de 64 carac¬ 
teres) que otros programas simila¬ 
res. 

Para introducir texto basta te¬ 
clearlo en Ja posición deseada. El 


Comandos Extendidos del 
Wafadrive 

CAT *“d:" 

Muestra el catálogo del 
cartucho d. 

CAT #“d:” 

Carga en memoria el di¬ 
rectorio del cartucho d. 


sin sacarlo por pantalla. 
OLEAR* 

Cierra todos los canales 
abiertos. 

GLOSE# flujo 
Cierra el canal especifi¬ 
cado. Si el número está 
entre 0 y 3, le devuelve su 
valor por defecto. 


GLOSE#* flujo 
Cierra el canal especifi¬ 
cado. SÍ estaba abierto a 
un archivo, éste se escri¬ 
be al cartucho y se actua¬ 
liza el directorio. 

CLS* 

Borra la pantalla y pone 
tinta negra, papel blanco 
y borde blanco. 


ERASE * “d: nombre” 
Borra un archivo del car¬ 
tucho; se puede especifi¬ 
car el nombre acabado en 
* para borrar los archi¬ 
vos cuyo nombre comien¬ 
za por las letras indica¬ 
das. 

FORMAT * “R”; veloci¬ 
dad 





















uno de los cuales guarda 1 K de in¬ 
formación. Una vez realizada la 
división, el Wafadrive escribe y lee 
cada sector con datos aleatorios. Si 
la lectura es errónea, marca el sec¬ 
tor como defectuoso y no lo utiliza 
más. Una vez realizada esta opera¬ 
ción, la cinta queda en condiciones 
de uso. La ventaja de dividir en 
bloques el cartucho es que, de esa 
manera, es relativamente fácil lo¬ 
calizar el principio de un sector. 
Además, no hay peligro de destruir 
información en un bloque poste¬ 
rior si reescribimos un sector a una 
velocidad ligeramente inferior. El 
mayor inconveniente consiste en 
que un archivo tiene menos de 1 
K. ocupará 1 K en la cinta, ya que 
esta es la unidad mínima de infor¬ 
mación. En el caso del Wafadrive , 
el tiempo que tarde en localizarse 
un sector es, en el peor de los ca¬ 
sos, de 6,5 segundos para cartu¬ 
chos de 16 K y de 45 segundos 
para los de 128 K. Lógicamente, 
serán mucho menores en un caso 
promedio. Una vez localizado el 




programa escribe sobre el texto 
presente en pantalla. Si queremos 
insertar en el texto tendremos qne 
abrir un hueco en la línea deseada. 
Existen dos comandos para ello: 
uno para añadir espacios en blanco 
en una línea y otro para separarla 
en dos. 

Otros comandos nos permiten 
avanzar a lo largo del documento, 
posicionarnos a final de párrafo, 


justificar una línea o un párrafo en¬ 
tero. El programa se encarga de que 
las palabras nunca queden a caba¬ 
llo entre dos líneas, y realiza, por 
defecto, la justificación del texto 
insertando espacios que ajusten el 
margen derecho. 

Junto a los comandos de edición 
existe la posibilidad de salvar, car¬ 
gar o mezclar textos a Wafadrive o 
cassette, además de un comando de 
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Fija la velocidad del 
R5232. 

FORMAT*“d: nombre” 
Formatea un cartucho 
con el nombre indicado. 
Borra todos los ficheros, 

INKEV $#fliyo 
Lee un carácter del canal 
y devuelve su valor. 


ÍNFUT # flujo; variables 
Lee variables de) canal. 

LIST Aflujo, línea 
Lista el programa, empe¬ 
zando en la línea indica¬ 
da, al canal indicado. 

LOAD*“ffl: nombre” 
Carga el programa espe¬ 
cificado; puede ser BA¬ 


SIC o código máquina. 
LOAD * carga el primer 
programa de la unidad 
por defecto, 

MERGE * "d: nombre” 
“Mezcla” el programa 
BASIC indicado con el 
que se encuentre en me¬ 
moria/ 


MOVE * “d: nombre 1” 
TG “d: nombre 2” 

Copia el fichero 1 en el 2; 
el uso de * como nombre 
permite la copia dei car¬ 
tucho entero. 


NEW 

Borra el prgrama BA¬ 
SIC y desconecta el 












sector, la transferencia de datos se 
hace a 2 K caracteres por segundo, 
aproximadamente. 

Una vez formateado, cada cartu¬ 
cho tiene un archivo especial, lla¬ 
mado directorio. En él se almace¬ 
nan los nombres, tamaños y núme¬ 
ros de sector ocupados por los ar¬ 
chivos existentes en el Wafadrive. 
Este admite hasta 82 ficheros dis¬ 
tintos (16 e n cartuchos de 16KJ.EI 
directorio es leído de la cinta al 
empezar a trabajar, y se actualiza 
cada vez que se va a escribir un 
sector. 

Los comandos de manejo de ar¬ 
chivos se basan en los del cassette, 
seguidos de un asterisco para dife¬ 
renciarlos de las órdenes referidas 
a éste. El nombre del fichero es de 
la forma «A: nombre», o «B: nom¬ 
bre», donde A o B se refieren a las 
dos unidades. Si no se indica la 
unidad el archivo será buscado en 
la unidad por defecto {normalmen¬ 
te A). Dos comandos extras son 
ERASE Y MOVE; el primero bo¬ 
rra un fichero y el segundo copia 


un archivo en otro. El comando 
ERASE *«A;ABO» borra todos 
los archivos de la unidad A cuyo 
nombre comience por ABC. Los 
comandos citados se encargan de 
la grabación de programas y 
CODE. La opción de salvar varia¬ 
bles (existente en el cassette) no ha 
sido implementada en el Wafadri¬ 
ve . aunque puede simularse defi¬ 


niendo esa variable en ausencia de 
programa y salvándola como pro¬ 
grama, La llamada mediante 
MERGE la cargará de nuevo a me¬ 
moria. 

Para el manejo de ficheros in¬ 
cluye los comandos OPEN # y 
GLOSE#, que se utilizan en conjun¬ 
ción con PRINT#, INPUT#e IN- 
KEYS#, El comando OPEN #abre 


I 


búsqueda de palabras. Sólo echa¬ 
mos en falta una opción de búsque¬ 
da y sustitución de palabras. 

Se pueden obtener copias con la 
ZX Printer o compatibles, así 
como con cualquier impresora Cen¬ 
tronics o RS232 (quizá con algún 
problema de cableado, ya que los 
conectores del Wafadrive no son 
estándar); los caracteres gráficos 
de bloques del Spectrum pueden 



ser utilizados para el envío de códi¬ 
gos de control a la impresora. 

Sin llegar a la calidad de equipos 


profesionales, fuera de las preten¬ 
siones de un ordenador como el 
Spectrum, este procesador de tex¬ 
tos nos ofrece la posibilidad de me¬ 
jorar la presentación de nuestras 
cartas y documentos, siempre, cla¬ 
ro está, que dispongamos de una 
impresora. Una muestra de que los 
usuarios, además de juegos, quie¬ 
ren que su ordenador sea una he¬ 
rramienta de trabajo. 



Wcifrad rive. liberando 

la memoria reservada. 
NEW * 

[nicíaiiza el Wafadrive, 
reservando alrededor de 
2 K para el sistema. 

NEW # 

Borra el programa BA¬ 
SIC sin desconectar el 

Wafadrive. 


OPEN # flujo, “canal” 

A bre y asocia el flujo y el 
canal mencionados. 

OPEN # * flqjo, “Port” 
Abre el flujo especificado 
y lo asocia al port men¬ 
cionado. 

OPEN # * flujo, “d: nom¬ 
bre’' 


Abre el flujo mencionado 
y lo asocia al fichero in¬ 
dicado. 

PRINT# flujo; “cadena”, 
datos, variables 

Envía los datos indicados 
al flujo de salida mencio¬ 
nado (previamente abier¬ 
to). 

SAVE * “d: nombre” 


L1NE número 
Salva al ficheri/ especifi¬ 
cado el programa BA¬ 
SIC, 

SAVE * -*d: nombre*’, co¬ 
mienzo, longitud, dirección 
Salva código máquina. 
Opcionalmente se puede 
especificar una dirección 
para uu<«ejecución. 
















un canal a un fichero. Si éste ya Crea un archivo y graba el nú- 
existía, será abierto para lectura, y mero 1000. 
para escritura en caso contrario. Se 


puede imprimir o hacer INPUT de 
los archivos con sólo especificar el 
número de canal. Por ejemplo... 

OPEN * * 4, «a test» 

PRINT #4; 1000 


Posteriormente: 

OPEN # * 4, «a test» 
INPUT#4; n 
GLOSE*# 4 


GLOSE# #4 


Da a «n» el valor 1000. 


f 


Las capacidades del Wafadrive 
no se limitan a sus cartuchos: la 
unidad incluye también un inter¬ 
face RS232 y otro Centronics. El 
primero es un interface serie muy 
utilizado para conexiones con mó¬ 
dems e impresoras, y es bidireccio- 
nal; el segundo es paralelo, sólo de 
salida y se utiliza para controlar 
impresoras. Se pueden abrir cana¬ 
les a los dos: OPEN * * 3, «c», y 
OPEN # # 3, «r», respectivamente. 
El RS232 requiere un FORMAT 
que especifique su velocidad de 
transmisión, ya que puede funcio¬ 
nar a casi todas las velocidades 
standard. 

Las comparaciones, aunque 
odiosas, son inevitables, y algunos 
lectores que conozcan el ínter face 
i se preguntarán qué ventajas rea¬ 
les aporta el Wafadrive sobre el 
producto de Sinclair. En primer 
lugar, podemos citar la presencia 
del Pon Centronics, que falta en el 
ínterface 1, y los dos drives. Por 
otro lado, el operativo del Wafa- 



VERIFY * “d: nombre” 
Verifica programas o có¬ 
digo máquina. 


SAVE # 

Usado en lugar de SAVE 
*, sobreescribirá automá¬ 
ticamente el archivo si 
existía uno con el 
nombre. 


Q 
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drive resulta más potente que el del 
Inter face 1 en el manejo de archi¬ 
vos. 

Los puntos fuertes del Microdri- 
ve son la red local y la medulari¬ 
dad (de 1 a 8 drivesY, resulta, ade¬ 
más, algo más rápido, ya que utili¬ 
za una cabeza estéreo, grabando 


dos bits cada vez. El catálogo, en 
cambio, es mucho más rápido en el 
Wafadrive que en el Microdrive, 
ya que este último no guarda el di¬ 
rectorio en memoria. Por contra, 
la cantidad de RAM reservada por 
el operativo es bastante mayor en 
el Wafadrive que en el Interface 1. 


En resumen, ninguno de los dos 
sistemas resulta definitivamente 
superior al otro y el precio tampo¬ 
co marca grandes diferencias. Qui¬ 
zá la oferta de un cartucho con un 
procesador de textos por parte de 
Rotronics pudiera decantar hacia 
su lado a algún indeciso... 
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«Copys» de pantalla 


Realizada la inversión de equi¬ 
par tu Spectrum con un interface 
tipo paralelo y una impresora de 
matriz de puntos, es muy probable 
que seas incapaz de obtener copias 
de la pantalla. Es una situación 
bastante desagradable, porque in¬ 
cluso la ZX Printer puede hacerlo. 
Afortunadamente, si tu impresora 
es capaz de operar en modo de 
imagen punto por punto (bit ima- 
ge mode) todo lo que necesitas 
para conseguirlo es este programa 
en código máquina. Ha sido escrito 
para usarlo con el interface Cen¬ 
tronics del Wafadrive, pero puede 
adaptarse a otros interfaces. 

La rutina enviará una copia de 
la pantalla (incluyendo las dos úl¬ 
timas lineas) a una impresora de 
matriz de puntos ajustada para 
operar en modo de imagen punto a 
punto. En las Epson MX70/MX80 
producirá una imagen en densidad 
normal de 108 mm de ancho, pero 
usando las Epson 

RX80/FX80/100 puede conseguir¬ 
se además una imagen de 162 mm 
usando el modo CRT Graphics. 


Con las impresoras Epson compa¬ 
tibles no debería haber problemas, 
pero en cualquier caso quedan su¬ 
ficientes espacios en blanco en el 
listado para permitir cambios o in¬ 
serciones. No obstante, si la impre¬ 
sora tiene menos de ocho puntos 
en su cabeza de impresión, habrá 
que transformar el programa radi¬ 
calmente. 

La rutina ha sido ensamblada 
para un Spectrum de 48 K, con la 
seguridad de que pocos o ninguno 
de los propietarios del Wafadrive 
tendrán la versión de 16 K. Su fun¬ 
cionamiento es bastante lento, 
puesto que la impresora necesita 
los datos en un formato totalmente 
diferente al usado por el archi vo de 
imagen del Spectrum. Utiliza los 
256 bytes del buffer de impresora 
del Spectrum como área de alma¬ 
cenamiento temporal. Las instruc¬ 
ciones del comienzo del listado no 
son demasiado concisas (muchos 
CALL PRINT), pero al menos son 
claras y es más fácil ver lo que ha¬ 
cen por si fuera necesario adaptar¬ 
las a una impresora no Epson. De 


la dirección FE6Ah en adelante, el 
código no necesitará ser modifica¬ 
do, a menos que vayamos a reubi¬ 
carlo. 

No es necesario que el Wafadri¬ 
ve esté activado para usar la rutina 
de copia de pantalla. Pero supon¬ 
gamos que lo esté. Después de ha¬ 
cer CLEAR 64975, introducir el 
código usando un cargador hexa- 
decimal. Grabar el programa con 
SAVE * “a: dump”, 64976,0343 y 
luego verificarlo mediante VERI- 
FY * “a: dump” (la sintaxis del 
Wafadrive no necesita la palabra 
CODE). 

Es interesante fijarse en la su¬ 
brutina PRINT, ya que usa las ex¬ 
trañas instrucciones que requiere 
el Wafadrive. Como explica el ma¬ 
nual, las instrucciones IN se utili¬ 
zan incluso para enviar datos al 
port paralelo. El libro da ejemplos 
de cómo hacerlo en BASIC. Aquí 
las instrucciones están traducidas 
al código máquina. Así: 

LD B, A 
LDC, 14 
IN A, (C) 


FPD0 

6605 


mt 

BUFFE 


m," 

FE01 

00 0210 

00 00 00 00 

DEFB 

0,0,0,0,0 

FDD0 

C36AfE 

0030 

5 

JP 

SING 

FE06 

C5 

0220 SINiSL 

PUSH 

BC 

FDD3 

CD3FFE 

0040 

EI6HT 

CALL 

PRINT 

FE07 

3E16 

0230 

LD 

A, 1BH 

FDD6 

3E16 

0050 


LD 

A, 1BH 

FE09 

CD3FFE 

0240 

CALL 

PRINT 

FDDS 

CD3FFE 

0060 


CALL 

PRINT 

FE0C 

3E4B 

0250 

LD 

A, "K." 

FDDB 

3E41 

0070 


LD 

A- *‘A' y 

FE0E 

CD3FFE 

0260 

CALL 

PRINT 

FDDO 

CD3FFE 

0030 


CALL 

PRINT 

FEU 

00 . 

0270 

DEFB 

0,0 

FDE0 

3E0S 

0000 


LD 

A,3 


00 




FDE2 

CD3FFE 

0100 


CALL 

PRINT 

FE13 

00 

0260 

DEFB 

0,0,0 

F0E5 

CD36FE 

0110 


CALL 

CR_LF 


00 00 




FDES 

C9 

0130 


RET 

FE16 

3E00 

0290 

LD 

A, 00H 

Ft>E9 

00 

0130 


DEFB 

0,0,0,0, 0 

FE16 

CD3FFE 

0300 

CALL 

PRINT 


00 00 00 

00 




FE1B 

3E01 

0310 

LD 

A, 01M 

FDEE 

00 

0140 


DEFB 

0,0,0,0,0 

FE1D 

CD3FFE 

0320 

CALL 

PRINT 


00 00 00 00 




FE20 

21005B 

0330 

LD 

HL,BUFFE 

FDF3 

3E1B 

0150 

NORMA 

LD 

A, 1BH 

FE23 

0600 

0340 

LD 

B,0 

FDF5 

CD3FFE 

0160 


CALL 

PRINT 

FE25 

7E 

0350 PLP 

LD 

A, ÍHU 

FDF8 

3E32 

0170 


LD 

A, "3“ 

FE26 

CD3FFE 

0360 

CALL 

PRINT 

FDFA 

CD3FFE 

0130 


CALL 

PRINT 

FE29 

23 

0370 

INC 

HL 

FDFD 

CD36FE 

0190 


CALL 

CRJ-F 

FE2A 

10F9 

0330 

DJNZ 

PLP 

FE00 

C9 

0300 


RET 


FE2C 

CD36FE 

0390 

CALL 

CRJ.F 
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Libros 


La primavera ya ha tenido en 
el Reino Unido el “florecimien¬ 
to" de una abundante literatura 
sobre el QL. En España ya son 
cuatro los libros sobre los que 
tenemos noticias. A los dos que 
comentábamos en el número 
anterior se unen ahora "Progra¬ 
mando con Sinclair QL" y “QL 
SuperBasic", editados ambos 
por Indescomp. Texto intro¬ 
ductorio en el primer caso, y 
curso avanzado sobre el Super¬ 
Basic, en el segundo. El precio 
de cada libro es de 1.950 pese¬ 
tas. 


Cable Centronics 

La impresora no siempre es 
un capricho, especialmente si 
de aplicaciones “profesionales” 
se trata. Con el QL lo más sen¬ 
cillo es utilizar una impresora 
Serie, pero también puede utili¬ 
zarse las Centronics, siempre 
que disponga del interface ade¬ 
cuado. Serma comercializa el 
QL-Centronics con software in- 


QL-Ventas 

Las ventas del nuevo ordena¬ 
dor no parecen haber alcanzado 
las colas previstas en el Reino 
Unido. Para el público inglés 
no hay todavía demasiado soft¬ 
ware que aconseje su compra. 
Conscientes de ello. Sinclair va 
a lanzar una campaña publici¬ 
taria cuyos costes se elevan a 
500.000 libras (poca cosa, sólo 
100 millones de pesetas). Y una 
-suma adicional de 250.000 li¬ 
bras para las publicaciones es¬ 
pecializadas. (¡A nosotros no 
nos llega nada!) 

El resultado de esta inversión 
publicitaria será la venta de al 
menos 200.000 QL para este 
año en el Reino Unido. O al I 


corporado, al precio de 12.500 
pesetas. 

Y más cables: el del joystick. 
Por el momento todos hablan 
de aplicaciones, pero ya existen 
diversos juegos que sin duda 
■agradecerán el complemento. 
Comercializados igualmente 
por Serma, el precio es de 1.600 
pesetas. 


menos esos son los planes de 
Sinclair. 

Curiosamente, los analistas 
predicen mayores ventas del 
QL en España que en su propio 
país. Habrá que esperar los re¬ 
sultados. 
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EASEL: Lo mejor de Psion 

Comenzamos con este artícu¬ 
lo una serie dedicada al software 
de Psion incluido en el precio 
del QL. En tanto estén disponi¬ 
bles las versiones en castellano 
de los programas, comenzare¬ 
mos por la descripción de Easel 
(versión 1,01). Las únicas dife¬ 
rencias con la versión en caste¬ 
llano residirán en la traducción 
de ios nombres de comandos, 
así como de una mayor veloci¬ 
dad de trabajo y capacidad de 
datos. 

Easel es un programa de grá¬ 
ficos profesionales. No nos ser¬ 
virá. por tanto, para realizar di¬ 
bujo “artístico”; su misión es 
realzar la presentación de nues¬ 
tros resultados mediante gráfi¬ 
cos. Muchas personas lo encon¬ 
trarán de escasa utilidad, ya que 
este tipo de utilidades no resuel¬ 
ven una necesidad; la crean. Las 
personas que realizan informes 
o trabajos en los que la presen¬ 
tación de tablas numéricas re¬ 
sulte importante, descubrirán 
que al poco tiempo de usarlo les 
resultará difícil prescindir de 
sus posibilidades. Las “vícti¬ 
mas” de sus documentos le 
agradecerán la mejora en la le¬ 
gibilidad de sus tablas. 

Una de sus mejores caracte¬ 
rísticas es la facilidad de uso. Su 


adaptación “en tiempo real" a 
todas las órdenes que recibe por 
el teclado, hace su manejo muy 
sencillo, ya que el efecto de 
cada acción es visible en panta¬ 
lla inmediatamente. Como los 
demás programas de Psion, ¡a 
teda F1 nos envía al menú de 
Ayuda (Help), donde se resu¬ 
men las instrucciones de una 
manera esquemática. * 

Las teclas F2 y F3 son tam¬ 
bién estándar en los cuatro pro¬ 
gramas. La primera sirve para 
indicar, en la parte superior de 
la pantalla, un resumen de las 
instrucciones de manejo. Cuan¬ 
do esta ventana de “status" no 
está presente disponemos de 
más espacio para nuestros da¬ 
tos. La tecla F3 nos da acceso al 
modo "comando", que nos per¬ 
mite teclear órdenes. En modo 
de inserción podemos teclear 
texto, dalos o fórmulas. La tecla 
F4 sirve para borrar un valor 
numérico, una etiqueta o un 
texto. F5 abre una celda para 
insertar un nuevo valor a la de¬ 
recha de la posición de! cursor. 
El movimiento del cursor se 
realiza mediante la tecla TA¬ 
BULATE o bien de forma auto¬ 
mática tras la introducción de 
un valor. SH1F TAB mueve el 
cursor hacia la izquierda. 


Desde el momento en que 
EASEL acaba de cargar en me¬ 
moria. el programa espera un 
valor numérico que ocupará la 
primera celda {etiquetadas por 
defecto con los nombres de los 
meses). Si respondemos con un 
número, habremos introducido 
el valoren la primera posición 
del gráfico. Si tecleamos unas co- 
millas, e! programa esperará un 
texto. Después de pulsar EN- 
TER se nos da opción a mover 
el texto por la pantalla, pedien¬ 
do posicionarlo a voluntad. 

Se pueden cambiar las. eti¬ 
quetas de las celdas a voluntad, 
bastando para el'o el comando 
Edit Labels. Podemos borrar 
con F4, introducir texto nuevo 
y, si pulsamos TAB. pasaremos 
a editar la etiqueta siguiente. Si. 
en cambio, pulsamos ENTER. 
saldremos del modo edición. 

La representación por defecto 
se realiza en diagrama de ba¬ 
rras. pero tamo la forma de las 
barras como el fondo pueden 
ser elegidos a voluntad. Si nin¬ 
guna de las opciones nos satisfa¬ 
ce podemos incluso diseñar es¬ 
tos elementos a nuestro gusto. 

A todas las opciones del progra¬ 
ma se accede mediante menús. 
lo que facilita su uso por perso¬ 
nas sin conocimientos informá¬ 
ticos. Los ocho formatos prede¬ 
finidos incluyen seis diferentes 
diagramas de barras, tres en 
sentido vertical y tres horizon¬ 
tales: un diagrama de líneas y 
una representación tipo tarta. 
Sin embargo, las definiciones de 
barras y líneas se pueden cam¬ 
biar una por otra y mezclarse en 
el mismo dibujo. También- es . 
posible representar varias figu¬ 
ras simultáneamente. El forma¬ 
to tarta resulta mucho menos 
flexible: sólo se puede represen¬ 
tar una figura, y en un formato 
único. 

Si queremos cambiar la re¬ 
presentación de una figura (y 
estamos trabajando con varias) 
basta teclear F3, Glddata y el 
nombre de la figura. Después 
F3. Change y elegir si cambia- i 
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mos barra, línea, papel, etc. En 
cada caso se nos pide un núme¬ 
ro; si tecleamos ENTER, se nos 
presentará una pantalla con las 
diferentes opciones. Siempre la 
última opción es un “?” Si.ele¬ 
gimos ésta, el programa nos 
presenta un menú para que di¬ 
señemos a nuestro gusto. 

EASEL es un programa flexi¬ 
ble, pero cuando adquiere su 
máxima potencia es cuando se 
utiliza en conexión con ABA- 
CUS. Una hoja de cálculo es un 
útil muy potente para la mani¬ 
pulación de datos numéricos, 
siendo la “falta de vida” de la 
presentación tabular su princi¬ 
pal inconveniente. Si una vez 
procesados los datos se crea un 
fichero tipo Expon desde ABA- 
CUS. su importación a EASEL 
limita el trabajo necesario para 
la presentación visual a la elec¬ 
ción del formato. 

La obtención de copias en pa¬ 
pel es uno de los principales 
problemas de EASEL. Por el 
momento el programa funciona 
con impresoras serie compati¬ 
bles Epson, por lo que. si se 
puede elegir, una impresora con 
estas características nos solucio¬ 
nará la papeleta. Si ya disponía¬ 
mos de una impresora y no es 
de ese tipo, el problema se com¬ 
plica, no existiendo por ei mo¬ 
mento una solución satisfacto¬ 
ria. 

Tampoco existe otra posibili¬ 
dad. si queremos copias en co¬ 
lor, que realizar una fotografía 
de la pantalla, ya que tampoco 
existe ningún programa de co¬ 
pia de pantalla para impresoras 
en color. Esperamos que, bien 
Psion, bien otras empresas, se 
apresuren a resolver este pro¬ 
blema. 

Existen programas que en¬ 
tran por los ojos, que nadie se 
puede resistirá utilizar. Si que¬ 
remos demostrar las posibilida¬ 
des gráficas del QL. éste es 
nuestro programa. Salvando las 
reducidas posibilidades de co¬ 
pia en papel, EASEL me rece .un 
diez. 
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Como construir un gráfico 


Como un ejemplo 
del manejo de EASEL, 
supongamos que un 
usuario quiere presen¬ 
tar en forma gráfica la 
pérdida de poder ad¬ 
quisitivo de tres distin¬ 
tas categorías laborales 
en su empresa. Para 
ello serviría, por ejem¬ 
plo. una gráfica como 
la figura I, donde se 
presenta el Indice de 
Precios al Consumo 
(IPC) junto a la varia¬ 
ción de los sueldos de 
las tres categorías para 
el período considera¬ 
do. Para facilitar la 
comparación, se cam¬ 
bia la escala de cada 
sueldo, de manera que 
los tres sean iguales al 
IPC de 1976. primer 


año que coexistieron 
las tres categorías. 

Para comenzar, se 
teclea F3, N (Nendala) 
y luego CAT1; prime¬ 
ra categoría para la que 
introduciremos los 
sueldos. A continua¬ 
ción, E (Edil) L (La- 
bels). Esto nos deja en 
situación de modificar 
las etiquetas. El proce¬ 
so seria: F4 (borra la 
antigua), F] (nueva), 
TAB (pasar a la si¬ 
guiente). etc., hasta te¬ 
ner las celdas necesa¬ 
rias para nuestros da¬ 
tos. Volvemos a la pri¬ 
mera celda (mediante 
SHIFT TAB) y comen¬ 
zamos a teclear el suel¬ 
do bruto anual de cada 
año. Una vez acabada 



Figura í. I-Ivoluciún <k salarios mn KascL 




















FiKura 2. Ejemplo de "‘tarta”. Sueldo por categorías 1976, 


Maura 3. Ejemplo de "tarta”. Sueldo por categorías 1983. 


coste de la vida. Des¬ 
pués se teclea C 
(Chan ge), L (Line) y se 
elige el tipo de línea 
deseado para esta gráfi¬ 
ca, El comando V 
(View) nos permite vi¬ 
sualizar el resultado, 
bastando editar el títu¬ 
lo y los nombres de los 
ejes para disponer de 
una gráfica de presen¬ 
tación impecable. 

Mediante este pe¬ 
queño ejemplo hemos 
cubierto parte de las 
posibilidades de este 
programa. Se puede, 
además, resaltar el cie¬ 
rre del abanico salarial 
en el período conside¬ 
rado mediante otras 
dos representaciones, 
de tipo tarta, con los 
salarios de las tres cate¬ 
gorías en 1976 y en 
1983. Si, tras salvar a 
microdrive los datos 
anteriores, ejecutamos 
el comando Zap, ten¬ 
dremos nuevamente la 
pantalla limpia. Edi¬ 
tando las etiquetas 
como CAT1, CAT2 y 
CAT3, e introducien¬ 
do en las celdas los va¬ 
lores del salario en el 
año 1976, bastará ha¬ 
cer View, respondien¬ 
do ENTER y 7 a los re¬ 


la serie se introduce la 
fórmula CAT1 - 
CAT1 / 1403168, que 
corresponde a hacer el 
sueldo de 1976 igual a 
1, y luego CAT I = 
CAT1 * 100, lo que 
iguala el sueldo de 
1976 al coste de la vida 
acumulado (1976 = 

100 ). 

Un proceso análogo 
se realiza con las res¬ 
tantes categorías profe¬ 
sionales y finalmente 
se añade la gráfica del 



querimientos del pro¬ 
grama. Con esto que¬ 
dará realizada la figura 
2. La figura 3 es análo¬ 
ga, pero sus datos se re¬ 
fieren al año 1983. 
Mucho más presenta¬ 
ble que una masa ilegi¬ 
ble de números, que 
nadie, a menos que sea 
imprescindible, querrá 
mirar. 

La figura 4 responde 
a otro tipo de aplica¬ 
ción: la representación 
de funciones. Un cam¬ 
po propio de estudian¬ 
tes y profesores, inge¬ 
nieros, etc. En este 
caso hemos representa¬ 
do una distribución de 
gauss y su derivada (no 
a escala). Para realizar¬ 
la se utilizaron 67 va¬ 
lores. Tras introducir 
las etiquetas para 67 
puntos, se teclea la fór¬ 
mula: 


gauss = esp 
(-(cell-30)"2 10) 


y el dibujo aparece 
ante nuestros ojos. 
Añadiendo: 


deriv = -2*<ücll- 

30) 10*gauss) 


creamos la representa¬ 
ción de la derivada. 
Con ajustar la escala y 
los formatos, hecho. 

Como puede verse, 
crear un gráfico con 
Easel resulta tan rápi¬ 
do como sencillo. Sin 
duda, una de las mejo¬ 
res armas de Sinclair 
para la promoción y 
venta del QL. En el 
próximo número vere¬ 
mos cómo aprovechar¬ 
le mejor mediante la 
utilización del Abacus. 

QC> 

































do para siempre o has¬ 
ta que ejecutemos 
BEEP sin parámetros, 
lo que para el altavoz. 
Para permitirnos sin¬ 
cronizar la ejecución 
de programas existe 
una función (BEE- 
P1NG) que devuelve 
uno si el QL está emi¬ 
tiendo sonido. 

Incluimos un peque¬ 
ño programa que de¬ 
muestra las posibilida¬ 
des sonoras del QL, se 
trata de aprender sol¬ 


SONIDO CON QL 


El QL nos propor¬ 
ciona un generador de 
sonido que, aunque ru¬ 
dimentario, supera 
apreciablemente las 
posibilidades musica¬ 
les del Spectrum, ya 
que el uso del segundo 
procesador permite 
emitir sonido mientras 
se ejecuta un progra¬ 
ma, El control del alta¬ 
voz desde el BASIC se 
realiza mediante un 
solo comando (BEEP), 
que puede tener basta 
8 parámetros. El efecto 
de una pequeña varia¬ 
ción en sus valores re¬ 
sulta a veces imprevisi¬ 
ble. por lo que el pro¬ 
pio manual nos reco¬ 
mienda la experimen¬ 
tación como mejor mé¬ 
todo para descubrir 
qué se puede hacer con 
el altavoz del QL. 

El BEEP se puede 
utilizar como en el 
Spectrum, aunque los 
valores de duración y 
tono no muestran una 
equivalencia. Donde 
las cosas empiezan a 
cambiar es con la posi¬ 
bilidad de añadirle un 
segundo tono a la lista 
de parámetros. En ese 
caso la frecuencia del 
sonido oscilará entre 
los dos tonos, tardando 
un tiempo proporcio¬ 
nal a los dos paráme¬ 
tros siguientes, grad-x 
y grad-y. Los tres pará¬ 
metros siguientes re¬ 
sultan aún más esotéri¬ 
cos. En un próximo 
número intentaremos 
aclarar su función. 

Si la duración espe¬ 
cificada es cero, el or¬ 
denador seguirá sonan¬ 


feo con ayuda del QL. 
El programa pedirá el 
tono y la duración de 
cada nota, hasta 45; las 
dibujará en un penta¬ 
grama y, al finalizar, 
interpretará la melo¬ 
día. 


El tono de cada nota 
se introduce tecleando 
el nombre: do, re. mi.,., 
aunque en la partitura 
¡a nota más baja es 
“re" y la más alta el 
“do” de la octava si¬ 
guiente. En cuanto a la 
duración, 1 correspon¬ 
de a una negra. 0,5 a 
una corchea, 1,5 a una 
negra con puntillo, 2 a 
una blanca, 3 a una 
blanca con puntillo y 
cuatro a una redonda. 
No se admiten otros 


QL6 












































































valores. El 
temporiza 


programa 
las notas 


mediante PAUSE, por 
lo que no debemos 
mantener ninguna te¬ 
cla pulsada durante la 
interpretación. 

Un programa senci¬ 
llo que nos permitirá 
aprender solfeo a la vez 
que perfeccionamos 
nuestra programación 
en SuperBasic, Para 
que luego digan que el 
QL no sabe hacer mú¬ 
sica. 



lOP REMark tMMtttimit 

tío REMar L 0L MuíÍC#! 

120 REMart tMIMtmmt 

t oó Rf.M-j.rl- ic) Diciembre 1904 , .noy 

140 no DE 8 : WI NDDW a 4R „ 200,32,1*1 PQRDER 1 0 , Q , 71 f V'.PER 4 : M H O 

Í5Ü CLSíCSIIE 3,1* UNDER 1:AT 0,'SPRINT -Ql L al ESI 7. 

j 6i"> PRIMt SPRINT a L Old ipreq Instrucción* 1 - 1 s-'n) 1 

[70 i t-INKÉV* i-1 i ¡ IF i*=« S " OR i 4= ,l S il ; i natnr \ anee : E 1 SE 01 ^ r 

IRO DIM nota* tT.u„3> : DIN dur.trjon f50> 

19C- D¡M pitehtSOI sDIM longitud [5Co 
200 $ ■*'0 1 p ds i c i ori «-70 ¡acr dssh O 
210 par titura pustcion 
220 REF'eat car gador 
730 A*#+i 

-40 IF a«.44,ía=45¡EXJT cargador 
Z5i.i ftT 1 7 f 5; PRI NT í ' ENTER ‘ trr.tr e las dutl " 

2¿0 AT íi l SHNPUT l *rmta, durac i dn -1 " t nota* ta ¡< , CLS 3: CLS 0 
270 duran un ( ai = 1 f *' 

200 IF rtciL ■*-,* f a> 1NSTR “elpr emi f asol asi f “ 

290 ELSÉ GQ TG 2*0 
“i:W7« END IF 

310 IF nót a*tai- "dü" i pitch (* ) -11 : h=1 O 
320 IF net*t(st="re" *pi tchf a)=28: N»-2 
3. lo IF nota»ííl = "(iii ,h : pi i c h (a > =24 ; tv»í> 

340 IF nota*<a)=“f #" t p i lt ch i s> =22: h=2 
3^0 IF not a*Ca► = “ubi" :pi toh («*> <r]9:h-4 
3*0 ÍF notaf fá> = '‘l3'' i pi toh i ab =15: h.=** 

370 IF nota*ta^" 5 i" : pi teh ( a b =12: h«-S 
300 IF nqt*ti a )=“z" t*-*-!:EX IT cargador 
3^0 d=durac tonta.' 

400 SELect ON d 
4 LO 

420 
430 
440 
450 
4*0 
47D 


en 


el 


Caracteres español 

^ Se han usado <•“?£•*¡nstruc- 
fioles en *°® programa. Para 

herios ha, íuetectear. 

SH1F T 


CNTRL 

CNTRL 

cntrl 

CNTRL 

CMTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 


ÍQuie-r tecla u^ra tocdr" 


■- 3í 1 ofigi tud (a S =6 . 25 
= lslongitudta.ht»12,5 
= 1 .5s J ongi tud í a í - 18 - 7* 

= 2 : longitud (¿*>=25 
“3ilongitud(*> =37.5 
=4:1 erngitud <a i «SO 
=RE#1AlNt>EP :GO TG 2-60 
480 END SELect 
4 90 di b u _nota h T d 
500 BEEP-1, p i tch (a) 

310 PAUSE longitud Caí 

320 BEÉP 

SSO END RE Pe a t cargador 
540 AT I 7 , 5 1 CL5 3b PRINT ,r Cu 
350 PAUSE 

5 *0 *cr DS S =01 po*ÍC1 Qn =70 
570 FOR b=i TO a 

5S0 acroB5=a-crqtK+lO: IF acroas ■ l *Qs wcrüs^J 0: po« i e i on=posi c 1 on-DS 
590 INI- 7 i L1 HE acr ose. , posic i on -5 TD ro 1 -+2 . pdci c i im « r . 

600 REEP -1,pitchtb í 
*10 FAU5E 1 ongi tud tb > 

*20 S£EFiIW 4: L 1NE ft TD -3,0 
*30 END FDR b 
*40 INh 7 

650 AT 1 7 , 0|'CL8 3tPRINT "Cualquier t*cl^ p-re tocar " 

6*0 .PAUSE 
*70 0D TG 5*ú 
*Bl> RE Mari **í***tf*tí**¡u 
*90 DEFíne FRQCedure- partitura IpancionJ 
700 LQCal a 

710 FQR a.=0 TO I* SlEP 4:LINE 0, po=, i c. i on + -b '0 
720 END DÉFine partitura 
7 30 RÍPIar fc ******** ******* 

74¡> DEFirifc PROCedure dibu_nDt* ■'h.dl 

*Crots=*cross + 10( IF *trtiss= 1 * 0 : aero*®-IQi pos»ci cifi -pcn. i c i un- 75 i par 111 i.ir 

cion 

7*0 S€L*c t DU d 

770 QM deliFILL laCIRCLE se.*- deij, pgtici on +ti 2 : F ILL UrUlNE ycrosE 
acro55+2,pasic i cnn+h+12 

7Bíi Ow d“*7 s C I PCL E acro 5 E,paatci an+ti 1 2: L I NE ser □= 3 + 2 , pp^ 1 1 iqi.^N TQ acrossC 
ion+h +12 

79Í.I DW d" ¡EIRCLE acr nss + pet r u ^ r)«+h , L I NE acrp-it ,'^posi cion + h TD du ■ 7 .5 i c 

1 cjn- 4 -h- í - 1 2: F1 LL JítíftGLE across+3 , posi c 1 orí ■ I *h , 1 ? FILL í¡ 

0J.1Í 1 QW J " 4 ; C I fíCL E acro-f.fc * 0 csi c 1 -on+h , 2 

010 ON d=l. 5: FILL IíCIRCLE acrosa T pe*- i £ 1 dn+h T 2: F ILt Oí I I ME across + í, pr>s t ci on + h - 
□ a.sreii+r , pnsi ci din^-h + l 2i F 1 LL IiTIRCLE acres :+5 , po i > c 1 +h T 1: F ILL " 

B 70 ON d=.5?FlL,C taCIRCLE #cro*g ,po«iti on+h ,Z*F ILL Ü:LINE ai V f . pusi c j di . fn 
rs I ; r 055+2 , p DS i c 1 on +1 1 + I 7J r L I NE _ F TD 3,-3 
030 END SEL ect 
040 £N0 DEF.r,» 
filíO REMark **»**■ t ** t »#*** r 
iib*i DEFíne RftüCfUdure 1 nstrumicrne 1 - 
870 L Oí:al 1 , j ,aí 

® B0 s$= "*■«** Programa aceptará 43 nota- y las mitua'rá en W n a . r rtiturn. • — nnt 
a& ffLarrpn una octava y >atm, po* ior. b.-r. 1 yndpnte, r 1 -, mi . -f . . 1 1 - l j,- l 

Una negra corresponde *1 ] . duración i . F1 res^D 1 - r Ln pr .¡. T- , 1 

fNtEF despuéE ÜE el»qir la nota y dtffctfúít Hh la dm -r . •. . F , .. ... r r . 1 .,. 

z ' . " 

89U A T 3, 1 b 

9.n> FO' 1=1 TD I. EN cal' 

910 j=i 

970 REFeaL palabra 
930 IF atljj=- fHÍ-N 
940 PRINT ai ■ 1 1L- 1 - ( M 

95(1 1 =j 

9*0 FíflT pdl bOjt a 
970 L-NH IP 
9Ü(. 1 - j t J 

99m LT-ITj r-F^-i pal A?r T 
J . Hf ' T 

IIHO Al I .3. P I Oí " -nalqi- ft 

t■ V 1 END DE I 1 r>at.r u. . .. 

f 1 ;_i.j - frí War i ■ * * * t *++***■*■*** * 


I 70 . po s i c i -. •• m ■ j EN D FOf' a 


, pos a 


pUfi J 


, po* L 


. FiiU'ií:: fl IR0PF 


SHiFT 

SH1FT 


SHlFT 

SHlLT 


017 


sCC' ,JÍ 










































ESPECIFICACIONES 

MODELO: 

CUB 1451/D03 
14" OL MONITOR 
Entrada RGB-TTL 
Resolución (PIXELS) 

653 (Hi x 585 (V) 

DOT PITCH 0.43 mm 
Bandwidth 18 MHz 
Especlticamente diseñado 
para el OL que 
aprovecha su facilidad 
única de 85 columnas. 


ESPECIFICAMENTE 
PARA QL 


Mod. 1451/DQ3 

P.V.P. 96.000 Pías, 




1431 


MZ -1 


Mod 


500 Pías 


74 


INMEDIATAMENTE 

DISPONIBLE 
























( viene de la pág . 30) 


envía el byte en el acumulador al 
pon 14 

LD B, O 
LDC. 10 
IN A, (C) 

manda un pulso de sincronización 
(sirobe) al pon 10 

LDB, 20 h 
LDC 10 
INA,(C) 
cancela el strobe 

En lo concerniente al software, 
este es un modo de hacerlo tan 
bueno como cualquier otro, la ex¬ 
centricidad está en el hardware. 


Otros interfaces 

Para otros interfaces paralelos 
habrá que olvidar la rutina 
PRTER y colocar en el vector 
PRINT (FE40h y FE41 h) la direc- 
ción de tu propia rutina de impre¬ 



Ejemplo de «copy» de pantalla. 


sión. La mayoría de los interfaces 
comerciales de tipo Centronics in¬ 
cluyen en su ROM un corto pro¬ 
grama equivalente a nuestra su¬ 
brutina PRTER. 


Las impresoras 


Imprimir en modo de alta reso¬ 
lución gráfica implica pasar a la 
impresora una serie de paráme¬ 
tros, que son entregados en el mo¬ 
mento oportuno por tres subruti- 

FE81 87 
FE82 87 
FE83 07 
FE84 87 
FE85 B5 
FE86 6F 
FE87 78 
FE88 E601 
FESA 07 
FE8B 07 
FE8C 64 
FE8D F640 
FE8F 67 
FE90 CS 
FE91 0688 
FE93 ES 
FE94 1680 
FE96 3E0S 
FE9S 4E 
FE99 58 
FE9A CB39 
FE9C ID 
FE9D 20F6 
FE9F CB12 
FEA1 24 
FEA2 3D 
FEAS 20F3 
FEAS 7A 
FEA6 DD7700 
FEA9 DD23 
FEAB El 
FEAC 10ES 
FEAE C1 
FEAF 00 
FEB0 00 
FEB1 79 
FEB2 FE48 
FEB4 38BF 
FEB6 CD06FE 
FEB9 04 
FEBA 94 
FEBB 78 
FEBC FE30 
FEBE 38AF 
FEC0 CDF3F0 
FEC3 09 


ñas: EIGHT, NORMA y SINGL. 
Entre cada una de ellas se interca¬ 
lan los suficientes NOPs para per¬ 
mitir hacer cambios. 

Si tu impresora no ha sido ajus¬ 
tada para dar un {inefeed automá¬ 
tico {avance de la linea de impre¬ 
sión). deberás cambiar la instruc¬ 
ción NOP en FE3Dh por un 
CALL PRINT. 

Para copiar la pantalla con la 
impresora, hacer un RANDOM1- 
ZE USR 64976. (Sin olvidar que el 
código máquina tiene que estar 
por encima del RAMTOP.) Como 
consecuencia de la forma en que 
trabaja el Spectrum. las dos últi¬ 
mas líneas quedarán en blanco. 
Esto se puede evitar llamando a la 
rutina desde dentro de un progra¬ 
ma. 

La creciente producción de apli¬ 
caciones que realizan gráficos hace 
que este corto programa pueda re¬ 
sultar muy útil a los poseedores del 
hardware necesario. 


0850 

RLCA 


0860 

RLCA 


0870 

RLCA 


0S80 

RLCA 


0899 

0R 

L 

0900 

LD 

L-A 

0910 

LD 

A,B 

0920 

AND 

1 

0930 

RLCA 


0940 

RLCA 


0959 

0R 

H 

0960 

0P 

40H 

0970 

LD 

H, A 

0980 

PUSH 

BC 

0990 

LD 

6.8 

1080 R0TAT 

PU5H 

HL 

1010 

LD 

D,0 

1029 

LD 

A-8 

1030 F2 

LD 

C,iHLi 

1048 

LD 

E.B 

1050 F3 

SRL 

C 

1060 

DEC 

E 

1070 

JR 

NZ,F3 

1080 

RL 

D 

1090 

INC 

H 

1180 

DEC 

A 

1110 

JR 

NZ,F2 

1120 

LD 

rt,D 

1130 

LD 

ÍIX+0),A 

1140 

INC 

IX 

1150 

POP 

HL 

1160 

DJNZ R0TAT 

1170 

POP 

BC 

1130 

INC 

C 

1190 

INC 

C 

1208 

LD 

A, C 

1210 

CP 

64 

1220 

JR 

C.COOR2 

1230 

CALL 

SINGL 

1248 

INC 

B 

1250 

INC 

B 

1260 

LD 

A,B 

1270 

CP 

43 

1230 

JR 

C,C00fil 

1290 

CALL 

NORMA 

1300 

RET 


1310 

END 



FE2F 

C1 

0400 

POP 

BC 

FE30 

C9 

0419 

RET 


FE31 

00 

0420 

DEFB 

0,0, 0,0,0 


00 00 00 

00 



FE36 

3E0D 

0430 CRJ.F LD 

A, 0DH 

FE38 

CD3FFE 

0440 

CALL 

PRINT 

FE3B 

3E0A 

9459 

LD 

A.0AH 

FE3D 

00 

0460 

NOP 


FE3E 

C9 

0470 

RET 


FE3F 

C342FE 

0480 

PRINT JP 

PRTER 

FE42 

CS 

0499 

PRTER PU5H 

BC 

FE43 

F5 

0500 

PUSH 

AF 

FE44 

FS 

0510 

PUSH 

AF 

FE45 

910208 

0520 

LD 

BC,2 

FE48 

ED7S 

8530 

RDV IN 

A, (C) 

FE4A 

CB6F 

9540 

BIT 

5, A 

FE4C 

28FA 

8550 

JR 

Z. RDV 

FE4E 

F1 

0S60 

POP 

AF 

FE4F 

47 

0570 

LD 

B,A 

FE50 

0E0E 

0530 

LD 

0,14 

FE52 

ED78 

0590 

IN 

A, (C) 

FE54 

0809 

0600 

LD 

B,0 

FE56 

9E0A 

0610 

LD 

0,10 

FE56 

ED78 

0620 

IN 

A, ÍC) 

FE5A 

CS 

9639 

PUSH 

BC 

FE56 

C1 

0640 

POP 

BC 

FE5C 

0628 

0658 

LD 

B, 20M 

FE5E 

0E0A 

8668 

LD 

C. 10 

FE60 

ED78 

0670 

IN 

A. (C) 

FE62 

F1 

9638 

POP 

AF 

FE63 

C1 

0690 

POP 

BC 

FE64 

C9 

0700 

RET 


FE65 

00 

0710 

DEFB 

0,0,0,0,0 


90 00 00 

09 



FE6A 

CDD3FD 

0720 

3 INC- CALL 

EIGHT 

FE6D 

0600 

0730 

LD 

B,9 

FE6F 

0E00 

0740 

C00R1 LD 

C,8 

FE71 

DD21895B 

0750 

LD 

IX,BUFFE 

FE75 

79 

0760 

C00R2 LD 

A, C 

FE76 

CB3F 

0770 

SRL 

A 

FE78 

6F 

0780 

LD 

L, A 

FE79 

78 

0790 

LD 

A, 8 

FE7A 

E638 

0800 

AND 

30H 

FE7C 

0f 

0310 

RRCA 


FE7D 

67 

0820 

LD 

H, A 

FE7E 

73 

0630 

LD 

H,6 

FE7F 

E60E 

0340 

AND 

8EH 





















3 POR 


REM aa 

POr.E ¿ 
LET Cí 
INpüT A 


;Tü ^0 ¿TE 
1 O - C O + I N 
¿7 D I :-t ¿ 
30 POR n 
) 05 iíiPUT 
*(n» i 


104-0 r 


f u- MílihERU l- £' 
NKjffif; j,10< 
üaaKvT O ri J U 


100 R 6 M--Í 
105 PfiINT 
110 FüR n 
PRÍNT OUc 
j 5 ■- o n j . 
if co 

:^hlN7 H 


1JSTADO 1 



38843 

GFONT 

i n 

BC3836 





OVéTvéTi A -1 

T^r i¿« 


hüD 

HL, SC 

30@i31 




38842 


PUSH 

HL 

33002 

33303 



88843 

38844 


POP 

ChLL 

TV 

; 

** 

PÍXEL +H 


PORP 

30304 

u 


38345 


LD 

H,h; coord V 

03005 




38046 


PUSH 

HL 

0300b 


Programa enviado por 

83847 


CALL 

POPA 

03037 


Alvaro Mateos herrera 

38348 


POP 

HL 

00008 




00849 


LD 

l, ñ. Coord x 

03003 

íiüvER 

LO 

HL,(STKEND) 

33353 


LD 

&, H 

S0310 


PUSH 

HL 

38851 


LD 

c, L 

00011 


EX 

DE.. HL 

38852 


CRLL 

PIXEL 

00012 


LD 

HL,(STKBOTJ 

83853 


PUSH 

HL 

00013 


LD 

BC.W0FH: 5*3 - 8r H 

88854 


PUSH 

HL 

03014 


HDD 

HL.. 3C 

88853 

SIGUE 

LD 

6, R 

33315 


SBC 

HL , DE 

08855 


LD 

H, 8 

30316 


JR 

2.FCÜDE 

30857 


SUB 

B 

00317 


RST 

38 

88058 


¡ n 

B,fi 

00018 


DEFU 

19H 

00859 


LD 

C.8; Contador 

30013 




38868 

LOOP 

LD 

P,B 

33020 

FCÜDE 

CRLL 

PORP 

38861 


CP 

M 

30321 


CP 

88H 

38862 


LD 

ñ. íix+0'i 

33022 


JR 

C,hSCIi; Car ASCII 

33863 


JR 

Z.STORE 

30028 


LD 

B,R 

38864 


EX 

DE, HL 

38324 


SÜB 

98H 

33868 


LD 

H, 3 

33325 


•JR 

C.BLOCK; Car GRAFICO 

33866 


LD 

L, A 

38026 


LD 

OÉ.ÍUDG); UDO 

33367 


PUSH 

BC 

30027 


JR 

INDEX 

33363 

SHIFT 

HDD 

HL. HL 

30828 




80863 


DUNI 

SHIFT 

33823 

ASCII 

LD 

DE : f.ChPRS) 

38873 


POP 

BC 

38038 

INDEX 

LD 

H.. 88 

38871 


EX 

DE, HL 

33831 


LD 

L, A 

38872 


LD 

fl.D 

08832 


HDD 

HL, HL 

38873 


XQp 

(HL) 

38333 


SDD 

HL. HL 

08874 


LD 

(HL) ,A 

88334 

30835 


HDD 

HL, HL 

38875 


INC 

HL 


HDD 

HL, DE 

08876 


LD 

ñ,E 

88836 


JR 

GFONT 

38377 


XOR 

(HL) 

88837 




88876 


LD 

(HL),H 

38835 

SLÜCK. 

CRLL 

3VNTE 

38873 


DEC 

HL 

38333 


LD 

HL,MEMBOT 

38868 


UR 

COMI 

















Desplazamiento 

Pixel 
a Pixel 


'■"'1 N el número 2 de TODOS- 
IH PECTRUM se invitaba a 
^ los lectores a comentar un 
programa del citado ejem¬ 
plar. Y hubo quienes, no 
contentos con lo que se ofrecía, de¬ 
cidieron modificarlo para dotarlo 
de una mayor potencia. Tal fue el 
caso de Alvaro Mateos que nos en- 


80031 
0808 £ 

c rrinc 

■_l 1 UfT.La 

XOR 

ÍHU 

00083 


LD 

ÍHL3 :H 

■00@f¡4 

CÜNT 

DEC 

H 

00085 


E “ 

fi.,H 



CP 

3FH 

0008 


v'T. 

Z,PfiLI 

00083 


CP 

47H 

00089 


JR 

Z., PfiLI 

f>. 1 .T k Ai"" 1 P Irt 


Q.w 

4FH 

00091 


* ÍD 

Z,PfiLI 

00099 


■JR 

NPflL 

00093 

80094 

PfiLI 

rnn 
n l i ü 

rí.i 3o 

■;> «IT 

? v 


s_L e 

H j fi 

88896 


LO 

R : L 

8889/ 


sus 

28H 

00093 


■ r L 

i>L ! 

L:H 



JR 

NC, NPfiL 

Y.I 


i r¡ 

fi., H 

ÜVCTf’S t>-T 
TCÍÜfJ-t'X 


5ÜB 

88 

l'-í - 


LD 

H, H 

88183 

NPfiL 

DEC 

IX 



r.p,-. 

!— F L- V 


88185 


¡r. 

VPr 

NZ > LOOP 

•¡y, ,7-iv Afi 


LD 

ü02 

38187 

01JfJi_r 

LD 

R i H 

00108 


hND 

13H 

00109 


SRfl 

fi 

00118 


SRfl 

TI 

00111 


SRh 

H 

:■> C?z- 1 -7 ” 
i/iL -t i y. - 


¡"nn 

fl,, 58H 

A * 


LD 

H i H 

-1 A 


í_U 

H.i EftTTR 

33115 


LD 

l HL i fi 

iT- ,7i-7 £ 


INC 

HL 

-1 “í 

^ j. ;■ 


ld" 

(HL J 1H 

* 

L _ L 


POP 

HL 

•>. i■% 


DEC 

c 

00120 


JR 

É.iT ¡M Ha—- i i 
ü'H L. L'Wi_J 



POP 

HL 


vió dos rutinas inspiradas en aqué¬ 
lla. 

La primera de ellas (Listado I) 
permite ei control de SPRITES 
con sus atributos, innovación no 
presente en nuestro programa. La 
hemos probado y nos ha parecido 
muy interesante. Ahora comparti¬ 
mos el hallazgo con nuestros lecto¬ 
res, y aprovechamos para guiarles 
por el mundo siempre apasionante 
de la programación en ensambla¬ 
dor. 

Mencionaremos rápidamente el 
modo de acceder a la rutina. Será 
mediante la instrucción. 

INK u: PAPER v; RANDOMIZE 
x ANDy=c — USR dir, donde 

ií y v son números entre 0 y 7, 
los que deseemos para el gráfico a 
imprimir. 

. x e y son coordenadas del extre¬ 
mo superior derecho del gráfico a 
imprimir. 

c es el CODE del gráfico: ASCII, 
carácter gráfico o U DG. 

dir es la dirección de la subruti¬ 
na (por cierto, es relocalízable). 

Si desea conocer más detalles les 
remitimos al citado ejemplar de la 
revista. 


88122 


LD 

(STKEND) , HL 

88123 

00124 

80123 


RET 


00126 

: = ,TK h N¡ l 

C-.*M ¡ 

5C65H 

80127 

PüPfi'" 

EQU 

2DP2H 


i1EM5G T 

Ffti ¡ 

&C92H 

00129 

: T-i- » ¡t*t 

■V [ r%OL' i 

EQU 

SC53H 

: JrJr\ 

i in r 

W'_vv 

EQU 

5C7SH 

88131 

CHhRS 

pyu 

5C36H 

03132 

■= gwTC' 

! T4 ! L.I 

E0¡j 

3638H 

iTr rs -i ■:> -- 
Sí iCJJ. 

PIXEL 

EDÜ 

22fifiH 


i — ■ TT” 

EQU 

“ s ™ 9 rvE-j. 

^ "¿U-L 

71 i { TT 

vvOün 


Descripción del programa 

Lineas 9-10: Guardaremos en el 
stack la dirección del puntero de 
pila del calculador, con objeto de 
devolver su valor inicial al volver 
al BASIC. 

Líneas 11-16: Comprobaremos 
si la pila del calculador guarda los 
tres números correspondientes a 
las coordenadas y al código del ca¬ 
rácter. Teniendo en cuenta que di¬ 
chos números se almacenan en for¬ 
mato de punto flotante, y que cada 
uno de estos números ocupa 5 bits, 
sólo tendremos los citados tres nú¬ 
meros sí el stack tiene una longi¬ 
tud de 1 5 bytes. 

Si no ocurriera de este modo, de¬ 
tendríamos el programa dando un 
mensaje de error. Con este objeto 
llamamos a la rutina de dirección 
8 (rutina en página cero, por tanto 
usaremos RST y no C’ALL). El si¬ 
guiente byte guardará el código de 
error a generar. 

Línea 20: La subrutina de ROM, 
FP-TO-BC (2DA2H). a la que he¬ 
mos llamado POP-A, tiene la mi¬ 
sión de almacenaren BC el último 
número de la pila del calculador. 
También se encargará de actuali¬ 
zar el puntero de pila. 

Ya hemos comentado que dicho 
número está en formato de punto 
notante {FLOATING POINT, 
FP). Consecuentemente solamente 
será posible esto en el caso de que 
su valor esté comprendido entre 0 
y 65535. El Acumulador también 
guarda una copia del byte menos 
significativo. Como éste es el único 
que nos interesa, solamente hare¬ 
mos uso del registro A. 

Linea 21-27: El código de carác¬ 
ter, almacenado en A, se analiza 
para ver a cuál de los siguientes 
grupos pertenece: 

— Caracteres ASCII (entre 64 y 
127). 

— Caracteres gráficos (entre 
12S.y 143). 

— Caracteres definidos por el 
usuario UDG (145-164). 

No se realiza una comprobación 
muy exhaustiva de los posibles va¬ 
lores, por lo que cifras por debajo 
de 63 o p|or encima de 165 dará re¬ 
sultados impredictibles. 

Las medidas a tomar en el caso 
de caracteres ASCII o UDG. son 












dobles: Almacenar en DE las di¬ 
recciones de comienzo de las ta¬ 
blas de caracteres. (En realidad se 
utilizan ligeros apaños que facili¬ 
tan los cálculos). Líneas 29 y 26 
respectivamente. Y, en segundo lu¬ 
gar, calculamos la dirección donde 
vamos a encontrar la información 
del gráfico que nos ocupa. Para 
ello multiplicaremos el valor del 
código (restando 144 en el caso de 
un UDG) por ocho. Esto se consi¬ 
gue duplicándolo tres veces. Por 
último sumaremos con DE, con lo 
que ya tendremos la dirección 
exacta. (Líneas 30-35). 

En el caso de caracteres gráficos, 
los perfiles no se encuentran en 
memoria, pues son calculados por 
una rutina, que hemos llamado 
SYNTB. Dicha subrutina 
(OB38H), situada en ROM, deja 
en los 8 primeros bytes de MEM- 
BOT (área auxiliar del calculador) 
las “rebanadas” del carácter gráfi¬ 
co cuyo código se almacena en el 
registro B. 


Cargaremos en HL la dirección 
del primero de los bytes, como en 
otros casos. 

Línea 40: En esta línea conver¬ 
gen las tres variantes. Antes de al¬ 
macenar HL en IX, sumaremos 8 a 
este primer registro, con objeto de 
apuntar al último byte de la mini¬ 
tabla que define el gráfico. ¿Por 


Se mejoró la rutina, 
incorporando el control de 
Sprites con sus atributos 


qué? Pues porque vamos a dibujar 
el gráfico de abajo a arriba. 

Lineas 44-49: Este es el momen¬ 
to de recoger los datos de las coor¬ 
denadas, almacenadas en la pila 
del calculador. Tras hacer algunos 
juegos de malabares con los regis¬ 
tros, se almacenarán definitiva¬ 
mente en el par HL, “x” en Le "y” 


en H. Transferiremos su contenido 
a BC (lineas 50, y 51). Con este 
dato, la rutina PIXEL (de ROM, 
22AAH) devolverá HL con la di¬ 
rección del área de pantalla que 
corresponde a las coordenadas da¬ 
das. El contenido A hace referen¬ 
cia al bit correspondiente al pixel 
indicado. Exactamente A es x mó¬ 
dulo 8. Restamos 8 de A (luego ve¬ 
remos porqué), y almacenamos el 
resultado en B (líneas 55-58). 

Si inicialmcnte A hubiera estado 
a 0 (el pixel apuntaba al bit 7), no 
será necesario hacer rotación algu¬ 
na. La comprobación se realizará 
en las líneas 60 y 61. Si así ocurrie¬ 
ra, iríamos directamente a STO¬ 
RE. 

Líneas 65-66: En otro caso, el 
carácter a imprimir estará a caba¬ 
llo entre dos bytes. Por tanto será 
necesario crear una máscara de 16 
bits. Usaremos para ello el par HL, 
Almacenando la “rebanada”’ del 
carácter en L, y poniendo H a 0, 
rotaremos el registro tantas veces 


áJ II¿I* ha rés3&3&> na ¿r7$>¿j73jji3» 
¿>373 ápaáMffi! ¿> ¿¿)H 

lo tuHdonlo calidad ¿>373 sor 
iSijrwdafisadD» admiras te ¿>333731333 

ii33i3 LO 00*000 ¿te Pí3d* $3133 

33 Jl $]¿>3 ¿la 73 I| 3 ]ited 

por 33 mp I oHKlón» 









¡APROVECHA AL MAXIMO TU SPECTRUM! 

Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 



Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi¬ 
ciente de la programación BASIC. 

Incluye temas como: 

• Introducción al teclado. 

• Instrumentos útiles para la programación. 

• Uso de comandos fáciles. 

• Como construir un programa. 

• Técnicas de programación. 

• Aplicaciones prácticas. 

IQOpags - 750 PTAS. 



Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación. 

El temario incluye: 

• Reglas y herramientas del BASIC. 

• La técnica de los organigramas. 

• Cómo planificar un programa, 

• El mundo de las rutinas. 

• Variables y'cadenas. 

• Funciones matemáticas usuales. 

109 pngs. * 750 PTAS, 


CUPON DE PEDIDO 

Recorta este cupón debidamente cumplimentado y envíelo a INFODIS, S. A. C/BRAVO MURILLO, 377-5,° A - 28020 MADRID 

Si, envíenme el (los) libro(s) que a continuación detallo ai precio de 750 ptas. libro, más 100 ptas. en concepto de 
gastos de embalaje y envío. 

El importe lo abonare: POR CHEQUE □ CONTRAREEMBOLSO □ CON TARJETA DE CREDITO (VISA □) 
(AMERICAN EXPRESS □) {INTERBANK □) 

Número de mi tarjeta 
TITULO 

NOMBRE _ 

CALLE __ 

CIUDAD _ 

PROVINCIA 

I 

_„ _ ____ _ _ / 


D. P. 


Firma 
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como haga falta. ¿Cuántas? Las 
que almacena el registro B tras las 
anteriores manipulaciones. 

Líneas 67-70: Las rotaciones se 
harán a base de sumas (tengamos 
en cuenta que desplazar ios bits a 
la izquierda supone doblar el con¬ 
tenido de un registro). 

Lineas 71-79: La máscara cons¬ 
truida en HL se pasará a DE y se 
superpondrá al contenido actual 
de la pantalla, mediante un XOR 
(equivalente a OVER 1). 

Lineas 84-92: Ahora toca el tur¬ 
no de actualizar la dirección a 
donde se va a mandar el siguiente 
dato. Mientras no se cambia de 
renglón, la ley de variación será el 
decremento del registro h (esto es 
restar 256 a la dirección) —re¬ 
cordemos que estamos escribien¬ 
do el carácter de abajo a arriba—. 
En estos casos iremos directamen¬ 
te a NPAL. 

Pero al hacer un cambio de ren¬ 
glón tenemos complicaciones. Si 
cambiar de linea supone cambiar 
de “área” (es del dominio público 
que la pantalla está dividida en tres 
bloques), el cambio anterior no es 
válido. Mientras que el byie alto de 
la dirección permanece inalterado, 
el bajo hay que decrementarlo en 
20H. Si se trata de un cambio de 
renglón simple, será necesario su¬ 
mar 7 al byte alto (8 en nuestro 
caso, pues ya le habíamos quitado 
1) y restar 20 H al bajo, como en el 
caso anterior (líneas 94-102). 

La pregunta es ¿cómo sabremos 


que hay un cambios de renglón o 
de bloque? 

El cambio de línea tiene lugar 
sólo en los casos en que H contiene 
los valores hexadecimales 3F, 47 o 
4F. Ver líneas 86-90. 


La segunda subrutina 
permite conocer los atributos 
correspondientes aun pixel 
dado 


El cambio de renglón supone 
además, cambio de bloque si L está 
comprendido entre 00 y 1FH. 
Como en cualquier caso será nece¬ 
sario restar 20 H a este registro: lo 
tenemos muy fácil. Realizamos la 
operación, y si el resultado tiene 
signo negativo (el carryJlag está en 
1), es porque cambiamos de blo¬ 
que. En este caso debemos devol¬ 
ver a H su antiguo valor (líneas 
100 - 120 ). 

Líneas 103-104: Ya estamos 
preparados para pelearnos con el 
siguiente dato. Incrementamos el 
puntero que lo selecciona y dismi¬ 
nuimos en una unidad el registro 
C, que hemos usado como conta¬ 
dor de líneas. Incialmente se le ha 
dado el valor 8 en la línea 56. 
Cuando llegue a 0, será momento 
de ocuparnos de la actualización 
de los atributos. 


Igualmente usaremos C como 
contador, aunque en este caso se¬ 
rán dos el número de iteraciones 
(línea 106). 

Lineas 107-113: A partir de la 
dirección de la “rebanada” más 
alta del gráfico, calculamos la di¬ 
rección de los atributos correspon¬ 
dientes a dichos puntos. 

Lineas 114-117: Introducimos 
en esta dirección el valor corres¬ 
pondiente a los atributos actuales. 
Por regla general el gráfico ocupa 
dos bytes. Por eso también lo in¬ 
troducimos en el siguiente. 

Repetimos el proceso para la 
“rebanada” más baja, con los datos 
anteriormente almacenados en el 
stack. 

Por último, antes devolver al 
BASIC, dejaremos el puntero de la 
pila del calculador en su valor ori¬ 
ginal (línea 121-122). 

Alvaro Mateos también nos ha 
remitido otra subrutina que permi¬ 
te conocer los atributos correspon¬ 
dientes a un pixel dado (Listado 2). 
Para utilizarla se escribirá: 

RANDOMIZE x AND y = USR 
dir 

El valor de los atributos aparece¬ 
rá en una de las variables del siste¬ 
ma no empleadas, la que se en¬ 
cuentra en la dirección 236814 
(5C81H). 

Con ello finalizamos —por el 
momento— el apasionante tema 
del “Deplazamiento pixel a pi- 
xel”. 


LISTADO 2 



00025 


CftLL 

POPA 

00001 




00024 


POP 

BC 

00002 

¡ 


00025 


LD 

c, A; 

S00S3 



flTTR 

00026 


CfiLL 

PIXEL 

00004 

.i 

##*«###****** 

00027 


LD 

A, H 

00005 




50026 


AND 

1SH 

00006 

.i 

Programa enviado por 

00029 


ORA 

A 

00007 


Alvaro Mateos Herrera 

00030 


SRfl 

A 

00005 




00031 


SRfl 

A 

00009 

MOVER 

LD 

HL, ÍSTKENQ) 

00032 


ADD 

A ,i 56H 

00010 


PUSH 

HL 

00335 


LD 

H. A 

00011 


EX 

DE, HL 

00334 


LD 

ñ. íhl:¡ 

00012 


LD 

HL, Í5TKB0T) 

03055 


LD 

íATTRP).A 

00013 


LD 

5C . 000HH; 5+2 = 0hH 

00335 


POP 

HL 

00014 


ADD 

HL, SC 

30037 


LD 

ÍSJKEMD3, 

00015 


SBC 

HL.DE 

00033 


REI 


00016 


JR 

Z,hCEFT 





00017 


RST 

03 

00040 




00013 


DEFU 

19H 

00041 

5TKEND 

EQU 

5C65H 

00019 




00042 

POPA 

EQU 

2DA2H 

00050 

flCEPT 

CHLL 

POPA 

00043 

STK.B0T 

EQU 

5C63H 

00051 


LD 

B,fl; coord v 

03044 

PIXEL 

EQU 

22ARH 

0S022 


PUSH 

BC 

00045 

ATTRP 

EQU 

5C31H 
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Erase una vez un viejo huraño y ha¬ 
raposo al que todos llamaban Garga- 
meL En realidad, en este juego no apa¬ 
rece este personaje, pero sí un enorme 
pitufo con preciosos tonos azulados 
que ha de recorrer incansablemente.un 
laberinto, a fin de recoger el mayor nú¬ 
mero posible de pitufofresas, robadas 
por el malvado Gargamel, 

El programa consta de tres listados, 
todos realizados en BASIC, Sin embar¬ 
go, únicamente el ultimo contiene el 
juego propiamente dicho. Los anterio¬ 
res preparan diversas pantallas de car¬ 
ga, de gran calidad, y han supuesto mu- 



1 PAPER Oí PO KE 23639,0 

2 REM 

3 POKE 23659,2 
10 GQ SüB 180 

12 POKE 23659,0: POKE 23659,2 
20 GG SUB 35 

25 PRINT INK 1|" PULSE PLAY 11 : 
LOAD "2" 

26 REM 
29 STOP 

35 PAPER Os CLS ¡ BORDEE 0 

36 POKE 23659,0: POKE 23659,2 
38 PAPER Os BGRDER Os INK 7 

43 PAPER Os BORDER Os PRINT I 
NK 6; AT 1, 1: " r» *T - r M í INK 3; AT 2 
f ÍJ M l ■ in"! INK 6; AT 3, 1 j "■ * * 


44 PRINT 

W‘ 

45 PRINT 

r 

46 PRINT 


INK 6|AT 
INK 3;AT 
INK 6;AT 


1,7;" T r 

2,71“ i r 

3,7; w - - 


■ p 


67 DRAW -2,“12: DRAW 2,-3; DRA 
W 4,-1: DRAW 4,0: DRAW 2,3: DRAW 
3,1 

60 DRAW 1, Üs DRAW 4,1: DRAW S, 
US DRAW 4,Oí DRAW -3,-11 

69 DRAW 2,“3i DRAW 4,-1: DRAW 
2,0: DRAW 9,3 

70 DRAW 3,0: DRAW 5,4: DRAW 9, 
3 

71 DRAW 12,2: DRAW 5,-1 

72 DRAW 4,-1: DRAW 3,-9 

73 DRAW 0,-2i DRAW -2,-B: DRAW 

-4,-6 

74 DRAW 3,9: DRAW 0,2: DRAW -1 

,7 

75 DRAW -2,4: DRAW -6,-2 

76 DRAW -2,-4: DRAW 5,-6: DRAW 
2,-5: DRAW ,-2t DRAW -3,-8: DR 

AW 0,7 

77 DRAW -2,7: DRAW -7,4: DRAW 
-2,0: DRAW -2,-12: DRAW -1,9 


47 PRINT 

INK 

6; AT 

1, 14; “ nill 

40 PRINT 

I NK 

3; AT 

2,14; 11 1111 a 

1 " 

49 PRINT 

INK 

6; AT 

3,145“ — —“ 

50 PRINT 

INK 

3; AT 

1,22; PFIF 

Til* 1 

51 PRINT 

INK 

5; AT 

2*22; 11 1 n-1 

■ ir 

52 PRINT 

INK 

3; AT 

3*22; 


60 INK 7: PLOT 0,140! DRAW 255 

>0 

61 PLOT 0,142: DRAW 255,0: DRA 
W 0,lt DRAW -255,0 

62 PLOT 0,170: DRAW 255,0: DRA 
W 0,1: DRAW -255,0 

63 PLOT 0,173: DRAW 255,0 

64 PLOT O. 0 s DRAW 0,175: DRAW 
255,0: DRAW O*-175: DRAW -255,0 

65 PLÜT 0,110: DRAW 20,61 DRAW 
4,3* DRAW 2,3 

66 DRAW 4,2: DRAW 12,3: DRAW 3 
,2: DRAW 5,11: DRAW 6,0 



78 DRAW -2,6; DRAW -12,-6: DRA 
W —12* —10 

79 DRAW -9,-2: DRAW -3,6: DRAW 
-3,0: DRAW -7,-2 

80 DRAW -20,-5: DRAW -2,-él DR 
AW -4,-2 

81 DRAW -6,-2: DRAW -3,-7: DRA 
W -5,-2 

82 DRAW -28,-28 


B4 PLOT 90,406 DRAW 3,12 
05 DRAW -2,3: DRAW -1,0: DRAW 
-2,-1S DRAW 2,6 

06 DRAW 4,3: DRAW 5,3: DRAW 30 
>é 

87 DRAW 5,2: DRAW 4,1 
08 DRAW 0,4: DRAW 2,0: DRAW 0,. 
-4: DRAW -B,-44s DRAW 1,4: DRAW 
-44, 4 

B9 PLOT 90,55: DRAW 10,lí DRAW 
1,-2* DRAW 2,3a DRAW 4,1: DRAW 
2,-3: DRAW 2,1: DRAW 4,2 

90 DRAW 22,2 

91 PLOT 90,57: DRAW 10,1: DRAW 
1,-2: DRAW 2,3: DRAW 4,1: DRAW 

2,-3: DRAW 2,1: DRAW 4,2: DRAW 2 
2,2 

92 PLOT 90,54: DRAW 10,1: DRAW 
1,-2: DRAW 2,3? DRAW 4,1: DRAW 

2,-3; DRAW 2,1: DRAW 4,2: DRAW 2 

2,2 

93 PLDT 100,44: DRAW 1,6: DRAW 
5,0: DRAW -1,-6: DRAW -5*0 

94 PLOT Í00,44s DRAW 1,0: DRAW 
7,0: DRAW -1,-8? DRAW -5,0 

95 PLÜT 163,76; DRAW 0,4: DRAW 
2,0; DRAW 0,-4: DRAW -2,0 

96 PLOT 144,75; DRAW 0,3: DRAW 
14,ls DRAW 0,-3: DRAW -14,-1 

97 PLOT 146,70: DRAW 0,7: DRAW 
2,3: DRAW 2,1: DRAW 4,1: DRAW 3 

,-2; DRAW 0,-9 

98 PLDT 148,76: DRAW 0,7: DRAW 
2,3* DRAW 2,1: DRAW 4,1 

99 PLÜT 140,80s DRAW 1,18: DRA 
W 26,4: DRAW 17,-4 

100 DRAW -17,4: DRAW -1,-4; DRA 
W 0,-13 

101 DRAW 3,-12: DRAW 5'* -4a DRAW 

4,-1 

102 DRAW 0,-7: DRAW 2,1; DRAW O 
,6: DRAW -2,1: DRAW 0,-B 

103 DRAW 2,-9: DRAW 3,0: DRAW - 
2,9: DRAW -3,0 

104 DRAW 2,-9: DRAW 9,0: DRAW i 
,-4; DRAW 2,0: DRAW 1,5: DRAW 5, 
0 

105 DRAW 1,-4: DRAW 2,0: DRAW 1 




















chas horas de trabajo, como puede ver¬ 
se en los listados. Pero no son necesa¬ 
rios para el cuarto y ultimo programa, 
por lo que si "quieres ir al grano**, pue¬ 
des empezar directamente por el últi¬ 
mo. 

Las pantallas 1 y 2 corresponden al 
primer programa (aunque en la prime¬ 
ra aparece el mensaje “Pulse 4 1 W , en 
realidad se puede presionar cualquier 
tecla). La pantalla 2 muestra a modo de 
pergamino las cuatro únicas operacio¬ 
nes del programa: izquierda, derecha, 
arriba y salto. 

El programa 2 dibuja el primer pitu- 


,5 i DRAW 5,0: DRAW 5,“31 
' 106 DRñW 12,2; DRAW -4,28s DRñW 
“ 12,1 

107 PLÜT 132*30# DRAM 7,-1 ¡ DRñ 
W 0,3* DRñW 4,Os DRñW 0,-31 DRñW 
-4, O 

106 DRñW 4,0¡ DRñW 1,16: DRñW 2 
,4; DRñW 4,1: DRAW 3,Os DRñW 4,- 
2a DRAW 1,-4: DRñW 0,-17 
10? DRñW 4.Oí DRñW 0-31 DRñW -4 
*0 

110 PLOT 162,26: DRAW 49,-8 

111 PLOT 142,26: DRAW 0.2t DRñW 
14,-1: DRñW 0,-2: DRAW -14,1 i D 

RAW 14,-1: DRAW 2,1: DRñW 0,2: D 
RAW -2,-1 

118 POKE 23659,0: POKE 23659,2 
120 PLÜT 145,29: DRñW 1,16: DRñ 
W 2,4: DRAW 4,1: DRAW 3,0 
.21 POKE 23659,0: POKE 23659,2 



122 FLDT 104,97 s DRAW 2,-19; DR 
ñW 2,-12a DRñW 3,-2: DRñW 2,Os D 
RñW 0,-6: DRñW 4,-10 

123 PLOT 170,76: DRñW 2,-1s DRñ 
W 0^,4: DRñW -2,1: DRñW 0,-4 

124 PLÜT 144,97' DRAW -1,4: DRA 
W 3,0: DRAW -1,-4 

126 PLOT 160,96s DRAW -1,4: DRñ 
W 3,0: DRñW -1,-4 

127 PLOT 172*96: DRñW -1,4: DRñ 




fo a gran tamaño (¡ideal para sacar una 
copia!), apareciendo después la palabra 
SMÜRF; es decir, pkufo en inglés. 
Después se carga el programa 3. 

Tercer y último programa^ y no pre¬ 
cisamente corto, contiene el Pitufo- 
juega- ¡Para pitufar toda una tarde! Las 
restantes pantallas muestran e! laberin¬ 
to que hay que recorrer para cargar la 
cesta con las apetitosas pitufresas, sin 
olvidar los pitufopeligros que acechan 
en cada pituforrincón. Aunque las ins¬ 
trucciones del programa hacen refe¬ 
rencia a unas pitufollamas, tampoco 
hay que olvidar los pitufocuadros mó¬ 


viles, que hacen el mismo pitufodaño. 
Llegando al final del juego, lo cual no 
resulta demasiado difícil después de un 
poco de práctica, se puede entrar en el 
ranking de los mejores. 

Prácticamente realizado con instruc¬ 
ciones PLOT y DRAW, el último pro¬ 
grama contiene algunos caracteres grá¬ 
ficos definidos por el usuario, los cua¬ 
les han sido subrayados para una mejor 
identificación. 

Que haya mucha pitufosuerte y no 
os preocupéis: ¡pitufobromista no in¬ 
terviene! 


W 3*0: DRñW -1,-4 
128 PLOT 137,99: DRñW 30,5: DRñ 
W 20,-5: DRñW -23,30: DRAW 3,-34 
: DRñW “3,34: DRAW -28,-30 

130 PLOT 0,42: DRAW 5,7: DRñW 5 
,2: DRñW 9,1: DRAW 7,-ls DRAW 20 

_T 
* ■- 

131 PLOT 46,44: DRñW 2,7: DRñW 
4,1: DRAW 7,2: DRñW 33,-7 

132 PLOT 0,29: DRAW 90,10 

134 PLOT B6,0: DRñW 54,29 

135 PLOT 136,O: DRñW 26,26 

136 POKE 23659,0: POKE 23659,2 

140 PLOT 224,30: DRAW 30,-5 

141 PLOT 216,48: DRñW 4,3: DRñW 
4,1:: DRñW 2,4: DRAW 4,2: DRñW 

12,2: DRAW 12,6 

142 PRINT AT 21,0:"Pulse hu l. 

143 PAUSE 4000 

144 ÍF INKEYÍ< >“" THEN CLS 
148 POKE 23659,0: POKE 23659,2 

150 PRINT AT 3, 10# 51 IN5TRUCCI0NE 

S";AT 5,0; '"IZQUIERDA_0" ; AT 7* 

8;"DERECHA. . .. ■,W"s AT 9,8;"ARRIB 
ñ..E"; AT 13,8; "SALTO, . . ,T n 

151 PLOT 00,140: DRAW 104,0 

152 F'QKE 23659,0: POKE 23659,2 

153 PLOT 40,50i DRñW 2*-45 DRñW 
6,-5: DRAW 7,-Ir DRñW 120,0 

154 DRAW 5,3: DRAW 4,7: DRñW 9, 
50: DRAW 8,49: DRñW 2,4: DRñW 5, 
1 

155 DRAW 3,-5; DRAW 1,-7; DRAW 

-12, O 

156 PLOT 40,50: DRAW 120,0: DRñ 
W 2,-4: DRAW 6,-5: DRAW 7,-1 

157 F'LÜT 206,155: DRñW -130,0: 
DRñW -6,-1: DRAW -4,-9: DRAW -22 
. -95 

158 PRINT AT 21,2; 'Pulse cúalqu 
1er tecla 11 

159 PAUSE Os 1F 1NKEYSL >" n TREN 
CLS 

160 PAPER 5: CLS : INK 1: PRINT 

AT 0,9; h 9MURF SlDE 1": RETURN 
166 POKE 23659,0: POKE 23659,2 
170 PRINT . 

172 POKE 23659*0: POKE 23659,2 
180 50 SUS 160 


190 FOKE 23659,0: POKE 23659,2 

200 CLS : PAPER 0:t INK 3; PLOT 
0,175: DRñW 255*0: DRAW 0,-70: 

DRAW -255,0: DRñW 0,70 

201 PLOT 0,765 DRAW 255,0: DRAW 
0,-70: DRAW -255.0: DRAW 0,70 

202 PLOT 0,101: DRAW 255,0: DRA 
W 0,-21: DRAW -56,Ot DRAW 0,17: 
DRAW — 149*0: DRAW 0,-17: DRAW -5 
0,0: DRñW 0,21 

203 PRINT PAPER 3; INK 7;AT 10 
,7; "A. LOPEZ PRESENTA: 11 ; AT 19, 9; 11 
PARE LA CINTA" 

204 POKE 23659,0: PDKE 23659,2 
206 POKE 23659*Oí POKE 23659,2 
210 POR t»0 TD 254: OUT 254,t: 

NE?íT t 

220 FOKE 23659,0: FOKE 23659,2 
230 PAUSE 20: RETURN 



23! POKE 23659,0* POKE 23659,2 
240 SñVE "SMURF" LIME 260: STOP 

250 POKE 23659,0: POKE 23659*2 

260 80 SUR 160; LOAD "Logo"SCRE 

E m 

261 1 F INKEYÍK >» 1 " OR INKEY*=" 1 
" THEN STOP 

265 POKE 23659,0: POKE 23659,2 
270 PRINT AT L, 8: "PARE LA ClNTfi 
": GQ TO 1 
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PROGRAMA 2 
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PAPER O 


2 

BORDER 0 


5 

CLS 


6 

BORDER Os PAPER 0 


8 

ÍIMK 5 


9 

PR1NT PAPER 5; INK 0|AT 0, 

2í "NO PARE LA lh ; FLASH 

1;" CINTA" 

10 

PLOT 120,80; DRAW 

1,2: DRAW 

2, 1¡ 

DRAW 2,0; DRAW 3 

, — 1 

11 

DRAW 2,-lí DRAW 1 

,0: DRAW 2 

, 1 : DRAW 19,0 


12 
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1,-2: DRA 

w 2,- 
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-1,1 

13 

DRAW 1,-2 


14 

DRAW -1,-1 


15 

DRAW -1,-2 


16 
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17 

DRAW 2,-lí DRAW 1 
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DRAW -1,3 


19 

DRAW 5Ai DRAW 2, 

1 a DRAW 1 # 
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20 

DRAW -4,-4; DRAW 

IB.-2 

21 

DRAW 2,4: PLOT 149,71: DRAW 

“3, * 

-15 


22 

DRAW 0,-2: DRAW 1 

,-4: DRAW 


“6 




111 

DRAW 

0,-1 : 

DRAW 

-8,0 

58 DRAW -1,0; 

DRAW -2,4; DRAW 

112 

DRAW 

Q* “1: 

DRAW 

S, 0 
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113 

DRAW 

0,-1 i 

DRAW 

-7,0 

59 DRAW -4,2 


114 
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0,-1: 

DRAW 

7 T 0 

60 DRAW -6,1: 

DRAW -6, - 1s DRAW 

115 

DRAW 

-1,-1 
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1 -6,0 
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117 

DRAW 

0,-ls 

DRAW 

6,0 

61 DRAW -1,-3 


113 

DRAW 

0,-1: 

DRAW 

-6,0 

62 'DRAW 0,-3: 

DRAW 4,-1 i DRAW 

119 

DRAW 

1 .-1: 

DRAW 

5,0: ] 

-1: DRAW -2,1: 

DRAW -2,-3 

,-l : 

DRAW 

-2,0 



63 DRAW 9,-1: 

DRAW -9,1: DRAW 

120 

PLOT 

,129,5 

9; DRAW 4,0 

5,-1 


121 

DRAW 

'l a -1: 

DRAW 

-6,0 

66 RLDT 146,67 

; DRAW 3,-1 

122 

DRAW 

-1,-1 

; DRAW 8,0 

67 PLOT 145,88 

: DRAW 6,-1 

123 

DRAW 

1,-1: 

DRAW 

-10,0 

68 DRAW -6,1: 

DRAW 0,9,-PI 

124 

DRAW 

o 

i 

*-*■ 

DRAW 

10,0: 

69 DRAW 2,0: DRAW 4,-3 

0,-1: 

DRAW -10, 

0 


70 PLOT 154,87 

: DRAW 2,-1; DRA 

125 

DRAW 

0,-ls 

DRAW 

10, Os 

5,li DRAW 4,3; 

DRAW -2,1: DRAW 

0,-1 s 

DP:AW -10, 

0 


K-1 


126 

DRAW 

0,-1 i 

DRAW 

1 1, Os 

71 PLOT 157, Lj 

s DRAW 1,-2: DRA 

0 , - 1 s 

DRAW -11, 
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4.2: DRAW 1,2: 

DRAW -5,-ls DRA 

127 

DRAW 

1,-1: 

DRAW 

11,0 

0,-1c DRAW 4,0 

: DRAW -3,0: DRA 

128 

DRAW 

1, -1 : 

DRAW 

-12,0 

0,-1 


129 

DRAW 

0,-1 : 

DRAW 

12,0 

72 PLOT 152,96 

• ; DRAW 1,2: DRAW 

130 

DRAW 

1,-1: 

DRAW 

-12,0 


1,1: DRAW 1,04 DRAW 1,-1 í DRAW 
-2,0: DRAW 2.0: DRAW -1,-2: DRAW 
-2,-1s DRAW'1,2 


3,-1 

23 DRAW 

24 DRAW 

25 DRAW 

26 DRAW 

27 PLOT 

28 PLOT 


1,0: DRAW -3 
- 1,-6 
5,-4 
- 6,0 
146 , 20 : 
146,20c 


DRAW 

DRAW 

DRAW 


W 4,2* DRAW 2,6; 

—3 g 

29 PLOT 156,75¡ DRAW -2, 

30 DRAW -3,-16 

31 DRAW 0,-2; DRAW 1, 

32 DRAW 4,-2: DRAW 4. 


O,14,“PI 
12,0; DRA 
0.1; DRAW 


-5 

Oí DRAW 


i -t 


33 DRAW í. s 2; DRAW -1,1* DRAW 



DRAW 
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DRAW 


DRAW 12,Os DRAW 

132 DRAW i,“1s DRAW 

133 DRAW 1,-1: DRAW 
-1,-1: DRAW 1 

134 DRAW l„-li DRAW 
-1,-ls DRAW 9,0 

135 DRAW -1,-1: DRAW -S P 0: 

3,-la DRAW 4,0 
137 PLOT 136,49: DRAW 7,2: 

1,-1: DRAW -7,-2: DRAW 0,-2: DR 

AW 3,0: DRAW 0,-1: DRAW -8,Os DR 
AW 0,-13 DRAW 5,0 
140 PLOT 146,57: DRAW 8,0 


131 DRAW 0,-1: 
0,-1! DRAW -1 d 


12,0 

-13,Os 


DRAW 


-11,0: DRAW 


DRAW 


DRAW 


141 DRAW -1,0: DRAW 0,-1: DRAW 
-7,0 

142 DRAW 0,-1: 

,-lt DRAW -7,0 

DRAW 0,-1: 

DRAW 


143 

- 1 : 


DRAW 7,0; DRAW 0 


DRAW 7,0: DRAW O 


- 6,0 


34 PLOT 165,48; 

DRAW 

1*2: 

DRAW 
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; DRAW 1,0: 

DRAW 1,-ls DRAW 

,-ls 

DRAW 

-4,0 


-1,1: DRAW -2,-1 

: DRAW 

1 -1* 

1 

“2,0 

: DRAW 2,0: 

DRAW -1,-2: 
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PLOT 

150,49: DRAW 3,0: 

35 PLOT 165,52: 

DRAW 

1*2: 

DRAW 

-2, ■ 
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; DRAW -3, 
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0,1: DRAW -1,1: 
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74 

PLOT 

156,102: DRAW 2.0s 

DRA 
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DRAW 

0,-1: 

DRAW -4,0 

36 DRAW 1,0: DRAW 3,22 
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PLOT 

145,102: DRAW 3,1 i 

DRA 
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DRAW 

0,-1: 

DRAW 4,0 

37 DRAW 0,-20 




W 2.0 




1‘48 

DRAW 

1,-ls 

DRAW -6,0 

30 F'LQT 160,35; 

DRAW 

-3, 1 

: DRA 

80 

PLOT 

144,97: DRAW -I.5s 

DRA 
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DRAW 

-1,-1 

s DRAW 3,0 
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DRAW 

4,1: 

DRAW 

W 3,' 
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DRAW 
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PLOT 

156,1 

21s DRAW 8,0 
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39 PLOT 147,58: 

DRAW 

6,0 


91 

DRAW 
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DRAW 

-1,-1 

: DRAW 6,0 

40 PLOT 138,49c 

DRAW 
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DRAW 
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i DRAW 17,0 
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DRAW 
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DRAW ”6,0 
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DRAW 
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DRAW 
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179 DRAW 0,-1; DRAW 16,0 
l 30 RLOT ÍMVERSE 15 153,11- 
AW INVERBE 1:7,1 
190 INVERSE O: ÍNK 6 

192 PLQT 20,40í DRAW 1,-4: 

2,-3: DRAW 6,-2: DRAW 49,0 

193 DRAW 4.3: DRAW 1,4: DRAW 9, 
50 

194 DRAW 4*2: DRAW 3,0: DRAW 4, 
-2: DRAW 1,-5: DRAW -12.0 

195 PLOT 20* 40a DRAW 47,0: DRAW 
1,-4: DRAW 2,-3: DRAW 3,-2 

196 PLOT 25*401 DRAW 4,3: DRAW 
1,4: DRAW 9,40: DRAW 4,3; DRAW 4 
,1: DRAW 48,0 

200 RLOT 48,60: DRAW 0*1: DRAW 
1 * 2i DRAW -3, 0: DRAW 6,0 

201 PLOT 55,80: DRAW 0,1: DRAW 
1,2: DRAW -1,-1: DRAW 3,0: DRAW 
1,1: DRAW -i -2l DRAW 0,-1 

202 PLGT 65,80: DRAW -4*0; DRAW 
0,2: DRAW 2,Oí DRAW -2,0: DRAW 

1,2: DRAW 3,0 

203 PLGT 38*^7; DRAW 0,1: DRAW 
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PLGT 58,50: DRAW 0*1: 
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PLQT 67,50: DRAW -4,0: 

DRAW 


O, 1 ; 

DRAW 1*3 
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208 PLOT 66*67: DRAW 0,1: DRAW 
1*2: DRAW 4,0: DRAW 0,-1: DRAW - 
1,-1: DRAW -1,0: DRAW 1,-2 

209 PLOT 72,67: DRAW 0,1; DRAW 
1*1; PLGT 74,71 

210 PLOT 74,66s DRAW 2,0: DRAW 
1,4: DRAW -2*0; DRAW -1,-4 

211 PLOT 79,70: DRAW -1,-4: DRA 
W 2,01 DRAW 1,4 

212 PLOT 82* 66: DRAW 2 r 0t DRAW 
1,2: DRAW -2,0: DRAW 1,2: DRAW 2 
*0 

213 PLOT 40*50: DRAW -3,0: DRAW 

0*1; DRAW 1*3: DRAW 2*0 

214 PLOT 43.50: DRAW 0*1; DRAW 
1,3: DRAW 2*0: DRAW 1,-3: DRAW O 
,-la DRAW O*is DRAW -4,0 

215 PLOT 50,50: DRAW 2*0: DRAW 
1,2: DRAW -2,0; DRAW 1,2; DRAW 2 
,0 


1,2: DRAW 3,0 
230 i NK 5 

240 PLQT 0*8: DRAW 142*0: DRAW 
0*10; DRAW 25,0: DRAW 0,10: DRAW 

88, til 

241 F'LDT 0*4: DRAW 145,0: DRAW 
0*10; DRAW 25,0: DRAW 0-10: DRAW 

85*0 

250 PLOT 190*32= DRAW 0*12: DRA 
W 17*0: DRAW 0,-12: DRAW -17,0 

251 PLOT 190*52; DRAW 0,12:' DRA 
W 17*O£ DRAW 0,-12: DRAW -17,0 

252 F'LÜT 190,72: DRAW 0,12: DRA 
W 17*0; DRAW O*-12: DRAW -17,0 

253 PLOT 190*92i DRAW 0*12: DRA 
W 17,0; DRAW 0,-12: DRAW -17* O 

254 PLOT 190*112* DRAW O,12: DR 
AW 17,0: DRAW 0*-l2t DRAW -17*0 

255 PLOT i90*132: DRAW O,12: DR 
AW 17*-3: DRAW O, -9¡ DRAW -17,0 

256 PLQT 195,150: DRAW 4,12s DP 
AW 17*-7: DRAW -5,-9: DRAW -17,4 

257 PLQT 202,164; DRAW 15,-5: D 
RAW 6*0: DRAW 0,9 

258 DRAW -20,-3 

259 PLGT 230,159: DRAW 0*9; DRA 
W 17,Os DRAW 0,-9: DRAW -17*0 

260 PLOT 251*159; DRAW 0*9; DRA 
W 4,0: DRAW -4,0: DRAW 0,-9: DRA 
W 4*0 

270 PLOT 211,29: DRAW 0*100 

271 DRAW 1,7; DRAW 2,6 

272 DRAW 8,9: DRAW 4,1 

273 DRAW 29*0 

280 PLOT 70*96: DRAW 0,12: DRAW 
45*0: DRAW O*-12: DRAW -45,0 


*2: 

DRAW 

2*-2í DRAW 2,2: DRAW 1 

W 1,4 

-2: 

DRAW 

Q* -1 

4,2: 

204 

PLGT 

46.67: DRAW 0,1: DRAW 

4,-2: 

, l! 

F'LÜT 

40,71 

0* “3 

205 

PLOT 

48* 671 DRAW 2*0: DRAW 

282 

*2; 

DRAW 

-2*0: DRAW 1*2: DRAW 2 

W 1,4 

0 

206 

PLOT 

56*67: DRAW 0*1: DRAW 

4,2: 

4,-2 

*?» 

DRAW 

-3*0: DRAW 6*0 

288 

207 

RLOT 

64*67: DRAW -4,0: DRAW 

: DUT 


*12),t+RND: NEXT t: NEXT y 
300 CL3 

305 PRINT INK 3;AT 9,7;"r 

“i i i n r™* 

306 PRÍNT INK ójAT 10*7:”¡ 

" II I 1- " 

307 PRINT INK 3|AT 11,7;", 

I LJ I M 

310 LOAD ,J 3 ,J 


LISTADO 3 

1 S^g§R8ÉR B 8 fiOCB e 

3 PGK6 USR "S"t9,BIN lllillll 
: POKE USR 'S * 1 * BIN 111UU1; P 
OKE USR "l' +a,lIN QBllOBBiB. POKE 

USR "1"+3 , SIN G01XQ00&: POKE US 
R " fc " +4,0 XN 00110000 PQK.E USR " 
s +5.8XN 00X10000: PÜKE USR *"+ 
6 j 6IN 11X11111: POKE USR ’l' +7,B 
IN llllllll 

4 BORDEA 0: PAPER 0: POKE USB 


"U’+G.BIN 01001001 POKE USR "U 
"+1,0IN 10011011; POKE U5R M u"+£ 
,BIN 11011011: POKE USR M U l '+3,BI 
N 01101101; POKE USR "u ,í +4 J BIN 1 
1111111: POKE USA D’+B.BIN lili 
lili: POKE USR "u"+ 6,BIN 1111111 
1: POKE U5R U fcl +7,BIN llllllll 
E POKE U5R "t"+0.BIN 00011000 
: POKE USR "l"+1*BIN 01111110 P 
□KE USR 't'-+£,BIN 0111X110: POKE 
USA t'+3,©IN llllllll: PQKB US 
R " t " +4 , B XN llllllll: POKE USR 11 
X +B.BIN 01111110: POKE USR \" + 
6, BIN 01111110: POKE USR - +?,B 
IN 00011000 

6 FOR t-USR 'I" TO USR "J M ; R 
ERO X; POKE t,K: NEXT t 

B POKE USR ,t j"+0,BlN 00000001 
: POKE USA "J" +1j BIN 00000001: P 
OKE USR ''J"+£,BIN 0000X110: POKE 
USR "j-ti^BlN 00010001 POKE US 
R l, j l -+4,BIN 00010000: POKE USR " 
j"+E j BIN 0000X110: POKE ÜSR "J" + 
L BIN 00000001: POKE USR 11 j" + ?,B 
IN 00000000 

10 DATA 103,153,1B6.110,0 i lSBi 
££5 f £43 

Xl DATA 7,31,63,1£7,127,25S,£6 
3,£S£: DATA £4®,íéa,£¿4,aás,£Í6, 
£40,£54,1: DATA £48,£40,112,136, 
100 1 136j112,S 

12 OATA lie # 12B,1X£,13B, S,11£, 
128 ¿ 0 

13 DATA 10£.ISa^S^aSO,®- 1,7,1 



5: DATA 3 1, IB , 14,17,1? , 1? ,U , 16 : 

DATA £24 £ Í4B # £52 ¿ £64,2B4,£55,2S 
5,63: DATA 16,63,127,265,115 ,15, 
127 ,126: DATA 1,1,14,17,16,14,1, 

14 POKE USR "O"+0,BIN 00010010 
16 POKE USR "O"+1,BIN 000X0010 

16 POKE USR "ü"+£jBIN 00111111 

17 PÜKE USR O"+3,BIN 01011111 

15 POKE USR O' +4,BIN 00111110 
20 POKE USR "ü"+6,BIN 01X11110 
£1 POKE USR ”0"'+6,BIN 11111110 


22 POKE USR "0+7,1 


Mili 


111 

100 


30 POKE USR P"+0,BIN 0®10010i. 

31 POKE USR "p"+1,BIN 00100100 

32 POKE USR P"+2,BIN 11111100 

33 POKE USR " p " +3 i BIN 111H100 
34- POKE USR ■ i P"+*,BlN 01111000 

36 POKE USR "p"+5,BIN 11111100 

37 POKE USR "p"+0,eiN 11111110 
36 POKE USR "P" *7 ,BIN 01111100 

40 POKE USR ' , q"+0,BIN 00010010 

41 PQKE USR "q"+1,BIN 00100100 

42 POKE USR q "+2,BIN 01111111 

43 POKE USR "q"+3,BIN 10111111 

44 POKE USR 11 q" +4 , BIN 01111110 

45 POKE USR "q"+6,BIN 01111100 
45 POKE USR "q"+6, BIN 1HH000 
47 POKE USR "q 1 ' +7, BIN 01111100 

50 POKE USR V " 40,BIN 00100100 

51 POKE USR "r*l,BIN 00010010 

52 POKE USR -f"+a,BIN 11111100 

63 POKE USR ' f" +3,BIN 01111100 

64 POKE USR " I" " +4 , BIN 08111100 
56 POKE USR " t "+8,BIN 00111110 

56 POKE USR "f+S.BIN 00011111 

57 POKE USR +7.BIN 00111111 

50 POKE USR "k"40,BIN 01001000 

: POKE USR "k"4l,BIN 01001000: P 
OKE USR "k"42,BIN 11111100: POKE 
USR "4"43,BIN 11111010; POKE US 
R "k"44, BIN 01111100: POKE USR " 
k ‘ 4S,BIN 01111110: POKE USR "k"4 
6,BIN 01111111: POKE USR "k , -+7, f B 
IN 11111110 

52 POKE USR "L"40,BIN 00100100 
POKE USR "t"41,BIN 00100100; P 


























KüMújS 


OKE USR “ L 11 +2 , B XN 0011X111: PÜKE 
USR "L M +3,BIN 00111111: POKE US 
R M l"+4,BlN 00011110: POKE USR " 
L" +6 j BIN 00111111: POKE USR "k" + 
6 , BIN 01111111: POKE USR “l 11 +7,0 
IN 00111110 

70 POKE USR >, n"+0,BXN 00100100 
POKE USR "tt ' +1,BIN 00010010: P 
OKE USR 'ni " ta j BIN 00111111; POKE 
USR "IT'+3, BIN 00111110: POKE US 
R "»"+4,BlN 00111100. POKE USR ' 
m ' +5 , B IN 01111100: POKE USR "11' + 
6 6IN 11111000: POKE USR "to"+7,e 
IN 11111100 

SO POKE U5P "n"+0 i6IN 00100100 
POKE USR "n"+l í SIN 01001000 P 
OKE USR "n"+2 ; BIN 00111111: POKE 
USR ,, n"+3,BIN 00111110 POKE US 
R "n"+4,SIN 00111100; POKE USR " 

n'+s.eiN 0111 : 1100 . püke USR "n" + 

6., BIN 11111000 POKE USR n"+7,B 
IN 11111100 

000 INK 5; PRINT AT 5,0, INK 5, 
"EL HALUADÜ GARGAHELHA RÜBAÜG LA 
S PITUFRESRS i. " f INK 3 , "X" > INK S 
i ") DE LOS PITUFOS- " 

301 PRINT INK SiRT 9,1;"DEBES R 
ECOGER LAS OUE PUEDAS, TENIEND 
O CUIDADO CON LRS LLAMAS*", INK 
3, J1 j INK 5, '■ > . " 

320 PRINT XNK S;RT 21,6, "PULSE 
CUALQUIER TECLA" PAUSE 0 
340 CL5 

344 INK 5: PRINT FLASH lj INK S 
;RT 1,0; “Y RECUERDA. . . " 

346 INK S; PLOT 55,70: DRRU 0,7 
5: DRAU 116,0: DRAU 0.-7S: DRAU 
-116,0 




458 PLOT 40,50: DRAU 40,0 
.351 PRINT IKK 6;flT 5,4,"IZOUIEfi 
D §-; 1 '*‘ "¿erecha'. . .fu“iRT 

y , 4 , ARRIBA.E'-,RT 11,4; "¿AL 

TU*.T 

PRINT INK 3;RT 0, 

4S0 LEI—r=4: PRINT RT^07®¡"lifS 

*482 f LET C-0; PRINT RT 0,1®, "SCO 

re " ■ ^ 

483 PLOT INK 3;0,167 DRAU INK 
3;255,0 

485 PRINT RT 5,26, " %* Ud a " : PLO 
T 200,123: DRRU 0.10 DRRU 55,0 
DRRU 0,-14 DRRU -55,0 DRRU 0, 
4 

490 PRINT INK 3;RT 10,29;‘^L" 

500 INK 5: IF INKEY *■ " " THEN PR 
INT^rt t,r;a*,AT t+i,r;b*;RT t+2 

'510*IF INKEY $ o " w " OR INKEV*a"U" 
THEN LET f * T +1: PRINT RT 
L RT t +1, r ;b*; AT t+3jfJ c* PRINT 
flT 1+2,r;di: FOR b=0 TQ 2: NEXT 
b; PRINT RT t+2,r;cf 
520 IF INKEY * = " A" O A INKEY i ¡* "O" 
TREN LET r=r-l: PRINT RT t,r;r* 

,RT t +1, r ; d *; AT 1+2,f;h*; PRINT 
bT t+2,r;ii FOR b=0 +0 2- NEXT 
b: PRINT RT X +2,r;hj 

522 IF r*0 THEN LET r*r+1; PRIN 
T RT t+1, r; “ 1 

523 IF r *28 THEN LET f*r-1; PR I 
NT RT t +1, f i " 

S26 IF r =8 THEN PRINT INK 0,RT 
12,11, 

528 POKE 23656,0; IF f*9 AND IN 
KEY**"1" THEN PRINT RT 9,10; 11 
;AT 10,10;-' M ;AT ll,!©;' 1 ": P 

RINT RT l,r +2i* *; AT x +l,r+a;b|,R 
T t + 2 j r +2, c t PRINT RT 9,12," 

; RT 10,12; ' " i RT 11,12; M * f ¡ L 

ET t«9 LET r*14 
530 IF r-10 AND NOT INKEY»-"t" 
THEN PRINT RT 9,11," | 

lV:' LET rsll^PRlírr RT tr ; a », RT 

53fi'í¿ b *«17 RND'í * iÍ THEN FOR 9 
5:16 TO 19^F0R y*0 TO 2: PRINT A 

T N?XT fi j:^W 9*0 ^2 ^^Í B ? EP drin 

?'Sr”8°6. l r'’ÍR!ífT Sí Í5!iii"™ “ 

PRINÍ PAPER 6; INK Í;ñt 12,1 
SftflS 11 : LET_ X »9.:._LET f *3^ 


I 


352 PRINT INK 6,AT 21,6 r PULSE 
CURLOUIER TECLA"; PAUSE 0 
360 PAUSE 0 
39® CLS 

322 PAPER 0 BORDEA 0 

400 LET a**" 

401 LET b**" 

402 LET c**" 

403 LET d*=" 

404 LET f*=" 

405 LET g*- 11 

406 LET h*- 

407 LET if» ,l _ 

414 wET 1*9 LIT f =3 
420 PRINT PAPER 6; INK 3.RT 12, 

0,"■ ^SS555SSS3SS555555SSSsSSSS55 

4*1 PRINT PAPER 6; INK 3;AT 13, 
0, "iSSSSSaa",RT 13,25, "■55555f" 
422 PRTÍJt^PRPER 6 j INK Ti, 

0 ."■¿5S5É" , RT 14,27; "KUÉ" 

4 3TTtlNT INK 4, AT 2S70^ üiiLiUUU 

ER 1¿ INK 3,,RT 21,0; S5555fe5S SS 

»» B u ir 

3 DRAU 6,1: DftAU 12,0 DRRU 19, 
-4 DRAU 30,0 DRRU 0,-9 DRAU 2 
,0: DRAU 1,9: DRAU 40,0; DRAU 7, 
3: DRAU 12,0 DRRU 9.-3 

441 DRAU 24,0. DRAU 0,-9. DRRU 
2,0- DRAU 1,9: DRAU 24,0 

442 DRRU 15,3: DRAU 39,0 

443 PLOT 15,125: DRAU 0,40; PLO 
T 33,125: DRRU 0,42 

444 PLOT 0,20: DRRU 20,0. DRAU 
50,0,-PI- DRRU 10,0; DRAU 0,50 

445 PLOT 123,120 DRAU 0,50 

446 PLOT 149,120 DRAU 0,50 

447 PLOT 203,120 DRAU 0,50 


5,g+RND; NEXT 9 - _ 

“ RT 0,6:F PRINT 4 RT 19,19, 



S60 00 TO 600 

600 CLS 

601 LET 

602 LET 

603 LET 

604 LET di 

605 LET 4|t 

606 LET f* = " 0£G ,l 

607 LET g*« ‘ XS " 

606 LET h*« ,f 0g " 

610 REH 

620 FOR d =12 TO 20 PRINT INK 3 
¿ PAPER 6;AT d,0, JB5SSS5SSS S5555 
ss sssss ssssssassaÉ 71 ^ ÑixT d 
851 PrInt iñk ¡Tffr ii # 0, "uuiiyujj 

U.UU UJJUJUÜULLUUUUUUU U iJUUUUUU U"_ 

_ \ I SS IT 

825 PRINT RT 0 t 0, M liFtilf 
626 PRINT AT 0,10 ; 11 SCORE 11 ; C 

630 PLOT INK 3j0,167: DRAU INK 
3;255,0 

640 INK 3: PLOT 0,146: DftAU 20. 
0; DRAU 30,0,-PI: DftAU 20,0. DftA 
U 30,0,-PI: DRAU 30,0; DRAU 30,0 
,-PI- DRRU 30,0: DftAU 30,0,-PI: 
DRAU 34,0 

641 INK 3: PLOT 0,146: DftAU 20, 
0: DRRU 30,0,-PI: DRRU 20,0; DRÓ 
U 30,0,-PI: DRRU 30,0: DRAU 30,0 
,-PI- DRAU 30,0: DRAU 30,0,-PI: 
DRAU 34,0 

643 PRINT RT 9,22; 'X! 1 
647 PRINT AT B t 26;"tiUda": PLO 
T 200,104: DRAU 0,10: DRAU 55,0: 
DRAU 0,-14: DRAU -55,0 DRAU 0, 

6S0 LET LET r-3 


Í34 IF r-11 AND NOT INKEYt 
THEN PRINT AT 3,13;'' lH ;AT 10,1 
3, " ■;RT 11,Í3; U ": LET t- 

17: «IT r =11; PRINT AT t,r;a %>AT 
\+i,r;b$,RT t+2,r;ci 
535 IF r *12 RND NOT INKEY*»"l" 
THEN PRINT AT 9,13," ";AT 10,1 
3;" ";AT 11,13;" LET 

17: LET f«ll: PRINT AT t,r j a *.RT 

537'I^ b ri18 AND J n6t S INKEY*- m X " 
THEN PRINT AT 9,19," H iAT 10,1 
9; " "J AT 11,19; " M : LET U 

17: LET f=19: PRINT AT t,r,4|;AT 
t+l,r,b*;AT t+2,r;c| 

540 f*l& THEN ^RINT AT 12,19 

J 542 IF r * 17 RND INK£Y* = ,l l" THEN 
PRINT AT 9,18; " , AT 10,16, 11 

1 ;AT 11,16," PRINT AT t,r+2; 

at.AT t+ 1 ,r+2;bi;RT t+2,r+2,C|: 
RkÍNT AT 9,20;“ "¿AT 10,20," 

";AT 11,20," ": LET 1-9: LET r« 

22 

544 IF r*20 AND NOT INKEY|*"T" 
THEN PRINT AT 9,20J" M ;AT 10, 

20:-' "; RT 11,20," ^ "; LET | 

«17: LET r *19 PRINT AT t,r,**iA 
T t+1.r,bt;AT t+2,r; c* 

546 IF t*17 RND r =l9 THEN FOR 9 
16 TQ 1 9: F OR ¥=0 TO 2: PRINT 
9,19, !■", AT 9-1,19;" 

NEXT di^ülf 9«0 TO 40: BEEP ¿ 

_,9 +RND: NEXT ‘ 

T AT 0,6 . f “ 

- AT 19,12 



655 LET X*10i LET y-26 

656 LET n*10; LET 0-21 

657 LET V-5; LET Z-29 
PRINT XNK 6; 




'“£4t" 


03 

LET f*F-í: PRIN 


n' i — j±». 

Mi : PRINT PAPER 

6, INK 3íRT 12-11. "SSSS 1 ;RT 12, 
19, : LET t=9 ; LET r-3 

550 IF f=25 AND INKEY * = "W" THEN 
LET C-C+100: PRINT INK 6,AT 0,1 

8;C: FOR 9TO 254 STEP 5: OUT 
254,9: NEXT fl- CLS : 00 TO 600 

551 IF f-0 THEN CLS 00 TO 300 


_ INK 5: PRINT 
■ - ,RT V ,Z+1, " "Jfi 
v +l,z+lj 11 " : LET z=z- _ ^ 

RINT AT x , y; "JX 1 1 AT *,y + i;" ; at 

n , o , "JJ." ; AT n,o + l," 11 ; LET 0*0-1' 
ír ÍNKfev**" THEN PRINT INK 5;A 
T t,r;a(,AT t+l,r,b*;AT i+g¿r;c* 
66i IF x-10 AND y =1 THEN PRINT 
AT x ,y; " LET y*y + l; LET y»28 
663 IF Z*2 THEN LET 1*1+1: PRIN 
T INK 0, AT 8, i; ‘ " ; AT 6,2; " 

LET Z *30 

666 IF 0=1 THEN LET 0*0+1: PRIN 
T AT 10,2; M ": LET ü=21 
666 INK 5: IF INKEY** « Oft INK 
EY * *"E" THEN LET t-6; PRINT JAT 
t +4,r +1;" ";RT t+3,r + i; " ";AT 

t, r ; * i, AT i +1, r ; bj*; ht t+2,r,c| 
FÓR b=¿ TO i; NEXT b: PRINT AT 
t , f i " ", AT t +1, r ; " AT t+2 

/r " : LET X *8 

6^0 IF INKEY*■"W" q* INKEY**' U" 
THEN LET f-r+1: PRINT AT * 

;AT t+1,r;b*,AT t+2,r;c*: ARINT 
AT t +2,r;di; FOR b*0 TO 2: NEXT 
b PRINT AT X +2,f,Cf 
672 IF INKEY**"A" OR INKEY* = Q" 
THEN LET r*f-1: PRINT AT t,r;a* 
¿RT t +1,r;f*;AT t+2,r,h*. PRINT 
AT t+2,r:gi: FOR b=0 TQ 2: NEXT 
b: PRINT AT l+2,C¡h¿ ^__. 1 

690 IF f *0 THEN LET r»r+l PRIN 

T &92 IF 1 ? ^¿6 THEN LET f =f-1 PRI 
NT AT l+l,r;" 1 






















OFERTA DE SUSCRIPCION 



Te ofrece la posibilidad de suscribirte con unas condiciones 
muy uenfajosas para ti: 


1 

2 


Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te proporcionará 
lectura, programas, ayuda, entretenimiento, etc. 

Consigue un práctico regalo: 



PROGRAMACION 


Philip WUBuw 




Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 


• Regías y herramientas del Basic, 

• La técnica de los organigramas. 

• El fabuloso mundo de las rutinas . 

• tWiu/des v cadenas. 

• Punciones matemáticas usuales. 


Esta publicación, escríba con estilo 
ameno y práctico, te ayudará a sacar 
todo el partido posible a tu máquina. 



La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas, 
sugerencias, etc. 


4 Obtener premios importantes con tus programas, y temas 
de inferes. 


EN DEFINITIVA, TODO SON VENTAJAS 

No dejes pasar esta oportunidad, suscríbete 

a “ TODOSPECTRUM ” cumplimentando hoy mismo el cupón 
de respuesta adjunto. 


Lí i 6RAV0 MURILLO. 377 - 5.° A 

■WWfrWW Mil TELEFONO: 733 74 13/47/63/97 28020 MADRID 




















KHmjXs 


700 LET y=y-l 

7 S 0 IF r=y AND NOT INKEY** 'e 1 T 
HEN PRXNT INK 3 ; FLASH 1 ¿_RT t,rj 
! ; AT ltl f r i “ AT t+a,r; 

FÜR j =0 TO 4.0 BEEP *005 
,j*RND; NEXT j; FLASH 0 . PRINT F 
LASH 0 ,AT t,r; " "j FLASH ©jfl 

T t + 1 ,r; 1 ■ FLASH ®,AT t+ 2 , 

r j " LET t*S: LET r« 3 . LE+ 

f*f-l PRINT AT 0 , 6 ; f: PRINT IN 

K T QT Q 3 3 11 T " 

761 IF r*o’mo not Inkev t■"e " T 
HEN PRINT INK 3 . FLASH 1 ;AT t,r; 

AT t+i,r; 11 "j AT t 42 ,r, 
" : FQR JB0 TÜ 4.0 BEEP .035 
,j*RND: NEXT j: FLASH 0: PRINT F 
LA5H 0;AT t,fi" ", FLASH 0,A 

T t4Í,r;" "i FLASH 0;AT *42, 

r i M : LET t.-8: LET r *3; LET 

í=f-l. PRINT AT 0,6,f PRINT IN 
K 3;AT 9,22,"JU' 

?Sa IF r = z ATlb INKEY ( * " e " THEN 
PRINT INK 3 , FLASH 1 , AT tj; 

", AT t + Lr; " " ; AT 142 ,r; " 

FOR j =0 T□ 40 : 8 EEP , 035 ,j*R 
ND NEXT J FLASH 0 : PRINT FLASH 
Í.RT t ( f," FLASH 0 , AT t. + 

l,r; " FLASH 0 ;AT t+a,r;" 

LET t ? 8 LET r* 3 ; LET fif 
-I- PRINT AT 0 , 6 , f: PRINT INK 3 j 
AT 9 , 22 ; 1 ' T 1 • 

TQie'iF'r-aa and inkey** ■ then 

.LET C*C+100 : PRINT AT 0 ,le,í; F 
DR K =0 TQ 254 STEP 2 : 0 UT 254 ,K■ 
NEXT K; CUS : GQ TQ 1000 
791 IF r «21 THEN CLS GQ TÜ 10 
00 

800 IF f =0 THEN CLS : GQ TO 300 
900 GQ TQ 560 
1000 REM 3 parte 
1010 LET t* 2 ; LET fs 22 
1100 LET a*=> B£ LET b I c 
: LET el*' - M : LET d* = ' 

: LET fi*." LET f « = 

LET 9 $.- JJL " : LET h*i 
~ PRINT “ " * 


jjjm 




PRINT 

1120 PRINT AT 0 , 10 ; "SCÜRE: "¿c 

1200 PRINT INK Si PAPER 3 ;AT 5,1 

7 ; 

120 T PRINT INK 6 ; PAPER 3 ;AT 10 , 

0 .-faaaaaáaaa s sssst" 

1202 PRINT INK S; PAPER 3 ;RT 18 , 

13; ■'Ba55SSS5SSñfiñSS^ñaB ,> 

1210 PRINT PAPER 1 , INK 8 ¿AT 21 , 
0 ; ttS£ 5 SS 5 S 5 SSSSSS 5 S S 5 55 S£sS 55 S 5 


1211 PRINT INK 4 ; AT £ 0 , 0 ; "UUULUJLL 
ULUUUUUUUUUUUUUUUI.il J 1 UJlJUÜÜU " 

1220 PRINT INK 3 ;flT iJiX 

1221 PRINT INK 3 j AT 

1222 PRINT INK 3 ;AT 6 , 12 ; IX." 

1230 PRINT INK 3 ;AT 3 , 19 ;"X' 

1231 PRINT INK 3 j AT lé, 14 ;X' 

1232 PRINT INK 3 ;AT 16 , 27 j"X." 
1240 PRINT AT 16 , 4 ; '&aUd 4 " : PLÜ 
X 26,26 : DRAL 0 , Í 0 : DRAU 55,0 O 
Waü 6,-14 DRAU - 55,0 DRAU 0,4 
1300 LET X= 9 : LET y* 15 : PRINT IN 
K 3 ;AT x ( y; "U" 

1400 LET d -7 LET fl *19 
14 S 0 INK 6 : PRINT INK 6 f AT d,g," 
i ' 4 i RT d-lifl," ",AT d, 949 ; " 1 "; AT 
3 - 1,4 + 9 , M * LET d=d+I. PRIN+ IN 
K 2 , AT x,y r UL l, ;AT x,y + l," ": LET 
Y=y- 1 : IF ÍnKeY* * " " THEN PRINT 
AT t , r , a *,AT t + 1 ,r;b*; AT t + 2 ,r;c 

1801 IF t ■15 AND r = 17 AND r»d TH 
EN BEEP . 01 , 0 : PRINT FLASH 0 ;AT 
t ,r 4 l; H ’ AT t+ 1 , r+ 1 ; 1 "; AT \ 

tí , f + i. i " " : PRINT INK 3 ; AT 2,19 

;±j AT 4 , 7 ; "X"; AT 3 , 3 ; " 1 ", AT 3 , 
12 , XX: LET PRInYAÍ 0 , 5 ; 

f: uFr 1=2 LET r *22 

1505 IF d = 10 THEN LET d*d-l: LET 

d- 7 : PRINT AT 17 , 19 ; M ",AT 

17 , 28 , 

1506 IF Y «0 THEN LET 9 *y + li LET 
y= 15 : PRINT AT 9 , 1, 1 

1508 IF í =27 THEN LET r*f-l; PPI 
NT AT 1 + 1 ,r 44 ; " " 

1510 IF INKEY * = OR INKEY |* U' 

then LET r«r 41 . PRINT AT t.fjt* 
, AT t +1 , r ; b i, AT us,r,ct PRINT 
AT t + 2 ,r,d *: FQR b =0 TQ £: NEXT 
b : PR INT AT t +2 , r i { $ 

1520 IF INKEY*. q DR INKEY **"Q" 
THEN LET f = r - 1 PRINT AT X , r ; eS 
,RT Ul,r; f*, AT 1 +2 , f j h |: PRINT 
AT t 4 2 , f q $ : FQR b = 0 TO £ NEXT 
b PRINT Af t+£,r;hi 


1525 IF t *7 AND INKEY f = " 4 ' OR IN 
KEY*s"E" THEN LET t .=4 PRINT ; AT 
■ t +4 , r 4 l; " " AT t. +3 , r + 1 : " 1 ; 

AT 145 , 1 *:" ".AT t,r;a*;AT t +1 

, r , b í , AT 1 42 , r , * FQR TO 1 ; 

NEXT b PRINT AT t,r," ".AT 1 

+ 1 ,r;" “;AT 1 + 2 ,r;" " LET 

1 =7 

1530 IF r -14 AND 1=2 THEN PRINT 
AT 2 , 14 ;• ";AT 3 , 14 ; "■AT 

4 , 14 , LET t =7 

154 0 IF r =15 AND 1=7 THEN PRINT 
AT 7 , 14 ,;" 1 ; AT S , 14 , " 

AT 9,14 j ' . LET t s 15 

1550 IF 1=7 AND r^y AND NOT INKE 
Yíc"e" THEN PRINT INK 3 ; FLRSH 1 
; AT t , r; "; at 14 i, r; " "; R 

T t 42 ,i* ; ■ PRINT INK 3 ; AT 3 

^ 19 P "X" i AT 4 , 7 ; "I"., RT 8 , 3 : -r . AT 
5 , 12 ; "T". FQR j =0 TÜ 40 BEEP . 
035 , j «rRND NEXT J FLASH 0 . PRIN 
T FLASH 0 ,RT t,r;" ", FLASH 

0 .AT t+i.r," "; Flash 0 ;AT 1 

42 ,r;" LET 1 * 2 . LET r^ 22 : 

LET r = f -1 PRINT AT 0 , 6 , t 
1560 IF t=tl 5 THEN LET t = l 5 
1570 IF 1=2 AND r = 19 AND INKEY * = 
"q" THEN LET C-C+ 100 : PRINT INK 
6 :AT 0 , 16 ,C 

1530 IF t =7 ANO r =2 ÜR r*ll AND 
INKEY * = "q" THEN LET C*C 4 l 0 ü‘ PAI 
NT AT 0 , 16 ; C 

1582 IF 1 = 15 AND r =13 AND INKEYf 
="q" THEN LET e=C +100 PRINT AT 
0 , 15 , C 

1583 IF t =7 ANO r =7 AND INKEY * = " 
E" THEN LET C=C 4 l 0 Ü PRINT RT 0 . 
18 , a 

1584 IF t = 15 AND i "=12 AND INKEY* 
="q” THEN LET C*C +10 

1586 IF t = 15 AND f=l 3 THEN ÜLS : 
30 TÜ £300 

1590 IF 1*13 AND r *23 THEN PRINT 
AT 16 , 26 , "Jl"; PRINT AT 16 , 35 ;" 
": LET r=f-T: PRINT AT 0 , 6 ; F PR 
INT AT t , r ¡ 41 " , AT t 4 i , r + l; " 

"iAT t + 2 ,f + 1 ; " - : LET t = 2 ; LET 

r =22 

1600 IF í =0 THEN CLS GÜ TO 300 
1620 IF t =7 AND f = 1 THEN LET r=f 
+ 1 ; PRINT AT t 4 l,f; " " 

180 ® GÜ TO 1450 
£000 REM 


2100 LET 


LET c*í“ ialíí 1 " 


00 P^INT PfiPI 




.PAPER 5 . 
"!eA Sj 


: LET b*=" 
LET d*«" 
LET fie 1 ' 
LET h* 5 .- 




p , ftr 

= t - 1 : 

t,r; 

3002 


PRINT AT 3 , 25 ; ' * a Lid a". PLO 
,143 DAAU 0 , 10 ; DRAU 55 , 0 : 
0 ,- 14 : ORAD - 55 , 0 : DRAU 0 , 

LET t= 14 : LET f =10 
LET £ = 7 ; LET e =29 
LET a* 16 ; LET L =39 
INK 5 PRINT INK 7 .AT *,*," 
S , 441 ; ■ ’, INK a, AT 1 , L , -U 

a,k 4 l," LET a=e-l: LET L 

IF INKEY** ' THEN PRINT AT 
ai; at t +1 , r , b *; at t 42 , r , c * 
IF 1=1 THEN LET l=l 4 l: PRIN 


_ r , C* FQR 

PRINT AT t,r; 
AT 1 42, r ; 


11 ; A 
L 


: LET e«= 

háF-**' 

2¿0 
17 
22 

^UUUUUUÜUÜUUUU 

2205 PRINT PAPER 6 ; INK 1 ;RT 19 , 

0 ¿ JfeSSAaS 5SSSSS SS0&5S 555555555^ 


INK 1 ;AT 10 , 
INK 1 .; AT 10 , 
17 , 0 . ■■ guujjujq 


¿ PRINT PAPER 3 . INK 6 ; AT £ 0 ., 
g.^ |SSSSSS 5 S 5 ¿SSSSSS 6 SS 5 SSSSSSS^ 

2220 PRINT INK 3 ,AT 15 , 5 ; JL 

2221 PRINT INK 3 .AT 1 S, 2 é 

2222 PRINT INK 3 ;AT 8 , 22 ;“ 
£ 3 jg^PRIN^lNt^ 3^^^0 ■“ 

55T^PRi^^N^^^^T0r pp 1 i faa ; 

3¿20 PRINT INK 5 ;AT 0 , 10 ," 5 CÜRE 

£ 340 ^ 

T 196 
DRAU 

4 

2400 
2410 
2420 
3000 

r,AT 


T AT 16,2, " " . LET L=29 
3100 IF INKEY * ="y" GR INKEY»*'U" 
THEN LET r«r+J: PRINT RT t,r,** 
¿AT t 41,r ; b *,AT t+2,r,c*: PRINT 
RT t +2,r;d*: FOR b=0 TO 2: NEXT 
b PRINT AT t+2,r;c* 

3120 IF INKEY**"q" QR INKEY**"6T 
THEN LET r=r-l: PRINT AT t,rjt» 
iAT t +1,r, f *;AT K +2, f jh * PRINT 
HT t42,f,g|: FOR b=0 TÜ £ NEXT 
b: PRINT AT t+£ , r,h* 

3140 IF t * 14 AND INKEY * = “ e " OR I 
NKEY(s"E" THEN LET t*ll PRINT ; 
AT t+4, r+1; " "; AT 143, r + 1; '* 

’, AT t +5 , r ; ” ís , AT t , r ; a I. AT 

l Í^NÉ x! ; "b T : ■ FQR 

T i +1, r ; 

ET t =14 

3150 IF U14 AND f=13 ANO INKEY* 
a'* 1 ' OR INKEY * =" E" THEN LET t»7„ 
PRINT ; AT t+?,r+lj'’ ,F ; AT \ +e , 
r+i; " *■; AT t+9, r ; " " , AT t , 

rjat.AT l +1,r;b*;AT t4£,r,c* LE 
T t =7 

3161 IF 1=14 HND r=12 AND INKEY* 
a 'E ÜR INKEY ** '■ E" THEN LET t =7 ; 

PRINT ,AT 1+7. r +1;" ",AT tt6, 

r+l;" ";flT t+9,r," ; RT i* 

r.;s*¿ f flT t + i.ribtíRT t+a,f,et: lé 

3152 IF t * 14 AND r=ll AND INKEY* 
= "€" OR INKEY * ="E" THEN LET t=7 
PRINT ,AT t+7,r+ir‘ 0 ;AT t+0, 

r 41 ,- ’ , RT t+ 9 A r; 1 %AT t, 

r"?5? RT t+1 ' r ^ bt;RT t+a,r;ci: LE 

3155 IF 1=7 AND INKEY(■"fi" OR IN 
K EY * = "£'' THEN LET t«4: PRINT . AT 
1+3,r+l," ";AT 114,r +1," 

,AT t+5,rr; ^ " ; AT t, r ; 4 *, AT t 4 

1, f , b •, AT t+2,f,C* FOR y=0 TO 1 
NEXT u: PRINT fif 1,r," ";AT 

T t + l^r; 11 ", AT t 42 , r ; M M ; LE 

3160 IF t =7 THEN PRINT PAPER 6; 
INK 1; AT 10 , ll; "^ss sas" 

3200 IF 6 = 1 THEN lEt Iifitl PRIN 
T AT 7,2j" " LET ft*2B 

4000 IF t = 14 AND r = L AND NOT INK 

EY * ="e" THEN PRINT INK 3; FLASH 
i, RT t, r .; " "|AT t+l,r;" 

?T t+S,r," PRINT INK 3,AT 

"X”,gT 15,25; "T";AT 8,22; "X 
" FQR j.0 TO 40: SEEP .03 É,J+Rn 
D NEXT j: FLASH 0: PRINT FLASH 
t,f;" ", FLASH 0,AT t4l 

, r , " FLASH 0; RT t +£ „ r ; ■' 

" LET 1=14. LET r*12; LET fm 
í-1: PRINT AT 0,6 ,i 

4001 IF 1*7 AND f=i AND NÜT INKE 

Y|="e" THEN PRINT INK 3, FLASH 1 
,HT Un 11 "JflT ULf;" " ; A 

T l+2,if," "h PRINT INK 3;AT 1 

5, ®¿; AT 1S , 2S; "T" ; RT 0,22; "T" 

FOR j*0 TQ 40: BEEP .035,j*f?RD 
NEXT j: FLASH 0: PRINT FLASH 0 
f RT t,r," "; FLASH 0,AT t+1, 

n " “'j FLASH 0; AT t +2, rj" 

LET t * 14; LET r=12. LEt f«f 
-1: PRINT AT 0,6; f 

40£0 IF t = 14 AND f=5 AND INKEY * = 
"q" THEN LET c«C4l00: PRINT AT 0 
¿18; c . 

4021 IF t =14 AND r*22 AND INKEY* 
= "uí" THEN LET c *c + 100 PRINT AT 
0,13;C; 

4 02£ IF t =7 AND f* 19 AND INKEY** 
"W" THEN LET c*C +100: PRINT AT 0 
. 10, c 

4023 IF 1=7 AND r■19 THEN CLS : 

GQ TO 5000 

4100 IF f«0 THEN CLS : GO TO 300 
4500 GQ TO 3000 
6000 rem 6 parte 
5100 CUS 

5104 LET Y-8: LET n-22 
5110 LET a * = ' BX “ ; LET 
LET c**- OiT^' ■ LET 


S120 


T b*-" DflE 
__ d * * " 

LET t|x líjl LET f** 

LET |*= ■ LK " ; LET h *■ 

20 LÍf t = LET r *5 


á £00 PRINT I 

rnmtm 

¡ f 


NK 3 ;AT 0 , 8 ; 


NK 5 ; AT 0 , 0; T1 UflS;" 


¿410 PRINT INK 5 ,RT 0 , 10 ;'SCORE 


5 500 PLOT INK 4 ; 0,14 
, 256,0 DRAU INK 4,0 
K 4 ;- 255,0 

5501 INK 3 : PLOT 160,18 


DRAU INK 4 
-1 DRAU IN 

DRRU 0 



























20 DRRU “3/fc: ORfiU 0,2: DRfiU -á 
j9 DRRU 3,7. DRRU 95,0 
5503 PLOT 0,130; DRfiU 12,-3: DRR 
ü -S,-7 DRRU 2,7; DRfiU 2,6: DRR 
U 16,-9 DRRU 15,7; DRRU 22,-7; 
DRRU -4,-7; DRRU 4,7: DRRU 2,6 
DRRU 2,0; DRRU 12,-3 

5503 DRRU 3,9: DRRU 24,-13: DRRU 
*3,0. DRRU 5,0 DRRU 2,7; DRRU 

2,0: DRRU 2,9: DRRU 7,-12 

5504 DRRU 3,0: DRRU 12,-6 

5510 PLOT 0,80: DRRU 155,0: DRRU 
0,8 

5511 PLOT 142,90 DRRU -6,9: DRR 
U 29,0 DRRU 0,-10 DRRU -23,0 
8512 PLOT 144,100; DRRU 0,6: DRR 
U 3,0 DRRU 0,12 DRRU -3,® DRR 
U 0,6; DRRU 29,0: DRRU 0,-3® 

5513 PLOT 144,124: DRRU 24,54: D 
RRU 5,0: DRRU 0,-37 

5520 PLOT 160,08: DRRU 0,-3: DRR 
U 5,®: DRRU 0,3 

5530 PRINT INK 3JRT 18,3;"!^ 

5531 PRINT INK 3;RT 13,25;^' 

5540 PRINT PT 9,55J '** tida": PLO 
T 196,96: DRRU 0,10: DRRU 56,0: 
DRRU 6,-14- DRRU -56,® DRRU ®¿4 
559® INK 5: PLOT 214,20: DRfiU 
10: DRRU 3,0: DRRU 0,-10: PLOT 1 
95,30: DRRU 0,12 DRRU 45,0: DRR 
U 0,-12: DRRU -45,0: PRINT RT 17 
j 25, "OU tí" „ 

5600 PRINT INK 3; fiT v-l,h," M ;RT 

V,n,"l , ',Pfr V+l,n,LET V-V+I 
; ÍNK E IF INKÉV§THEN PRINT 
RT t,r;a #;RT t+1,r;bf;fiT t+2,r; 

5I20 IF r-0 THEN LET f* *f+1: PRIN 
T RT t + 1, f; ,l " , 

5630 IF w=14 THEN LET v=v-l: PRI 
NT RT 13,32 J " i RT 14,22;" 11 : LE 
T V *8 

5634 IF t >12 fiND r »2® RND l=V RN 

D NOT INKEY| - "W " THEN PRINT RT t 
,f,' AT t +1, r , " " ; fiT t+2, 

f; 1 LET t-17 LET r*5- LET 

f=f-l: PRINT RT 0,6; F 

5635 IF t=lS RND r=21 RND t-V RN 
D NDT INKEYj*"w" THEN PRINT RT t 

";Rt t + 1, r; " M ;RT t + 

2 ,n" A ¡ LET t-17: LET r =5: L 
ÉT F = f-1 PRINT RT 0,6; í 
5640 IF INKEY (3 íi" GR INKEY $ a" 0" 
THEN LET r=r-l: PRINT RT t r ; • * 
, RT t +1,ri F S,RT t+2,r;h *: PRINT 
RT t+2,r,gs FOR b*0 TO 2. NEXT 
b. PRINT Rf t+£,f;h| 

5653 IF INKEY $ ="W" ÜR INKEY**"U“ 
THEN LET r*r +1: PRINT RT t,r,;a$ 
¿RT t +1, r , b S, fiT t+2 jL f,C|: PRINT 
RT t +2,f;d i FOR b=0 TO 3: NEXT 
b. PRINT RT t + 2,r; CI 

5655 IF t-17 RND r-lS THEN LET r 
»f-l: PRINT RT 1+1,r+4;" 

5656 IF t = 12 RND r-13 THEN LET r 
=r+i: PRINT RT t+l,r;" " 

5710 IF 1*17 RND r=14 RND INKEY$ 
= ■’«" OR INKEY 6 se" E" THEN LET t*12 
PRINT , RT t +5 , r , ", RT \ +6 

, r; '■ M ; RT t+7 , r j " t,r 

;a|;RT t+l,r;b*jRT t+2,r¿CJ: FOR 
b = 0 TO 1: NEXT b; PRINT RT t , r, 


1 1 RT t + 1 ,r; 


1 J RT t +2,r; 


U -30,130: DRRU -14,9: DRRU -14, 
3; DRRU -115,0: DRRU -14,-3: DRR 
U -14,-10: DRRU -30,-130 
6410 PLOT 38,90: DRRU 10,40: DRR 
U 172,® DRRU 10,-40: DR^U -19®, 
0 

8420 PLOT 65,90; DRRU 3,12: DRRU 
3,2: DRRU 6,0; DRRU 3,-2 DRRU 
I, -12 

6421 PLOT 63,90; DRRU 3,14: DRRU 
3,2: DRRU 1®,0; DRRU 3,-2: DRRU 
11 - 1S 

64-22 CIRCLE 74-,«6,3 
64-36 PLOT *0,49: DRRU 6,20: DRRU 
175,0: DRRU 6, -20: DRRU -9,12: 
DRRU -167,0; DRRU -9,-12 
6432 PRINT INK 3¡RT 18,24, "X" 
6434 PRINT RT 9,22,"41 l i ú a "1 PLO 
T 166,96; DRRU 0,10: DRRU 55,0: 
DRRU 0,-14; DRRU -55,0: DRRU 0,4 
6440 LET d>15: LET U>20 
6490 PRINT INK 3,RT d,u;"LT';RT d 
-1,U," ": LET d>d+l. INK T IF I 
NKEV*."" THEN PRINT RT t,r;«*;RT 
l +1,r;bf,RT t+2,r;c> 

6500 IF INKEY|."q" OR , INKEY*> '<¡T 
THEN LET f.r-1: PRINT PT t,rjt| 
¡RT t♦1,r; f $¡RT t+2,rjh*: PRINT 
RT t +2,r ;a* fqr b*0 TO 2; NEXT 
b: PRINT fif t+2,r;bi 
6502 IF d >19 THEN LET d=d-l: PRI 
NT PT d,U, " -: PRINT RT d,U+RND+ 
20-12: LET d * 15 

651® IF INKEY | -"W OR INKEY( * " U" 
THEN LET r-r+1: PRINT PT t,r,as 
,RT t+l,r;b*;flT t+2,r¿c* PRINT 
HT t+2,f;di: FOR b=0 TO 2: NEXT 
b PRINT RT t+2,r,C* 

6600 IF f =4 THEN LET f-r+1 PRIN 
T RT t+l,r;" " 

6601 IF f*25 THEN LET f=r-l: PRI 
NT RT t + 1 , r +4 : M 11 

6700 IF t c17 RND t=d ANO r=l9 TH 
EN PRINT RT t,r;" M ; RT t+i.rr 

",RT t+2,rj" M : LET t=17: 

LET r = 5: LET f = F-l PPINT RT ®, 

6701 IF t-17 RND t=d RND r*16 TH 

EN PRINT RT t , r ; " " ;RT t+l,r; 

"jflT t +2,r; " " : LET t*17; 

LET r =5. LET f-F-1 PRINT RT ®, 

8; r 

675® IF f=0 THEN CL5 GO TO 300 
6600 IF r=20 RND INKEY§="u" THEN 
LET C-C+100. PRINT RT fl ( 18;C: C 
L5 ■ GC TO 720® 

700® GÜ TO 649® 

7200 REM 7 

721® LET t■10: LET r»5 
7221 LET a $«" ac "; LET bi- QBE 
LET C*n" ": LET d* = " £lEr^ 

: LET € **“ JLtL '' : LET f »* 

LET QSs" J-K . " . LET hl*" J1R. 
7400 FOR m*® T6 10 STEP 10; CIRO 
LE INK 3;200,69,m NEXT m 
7410 PRINT INK 1¿ PPPER 5¿RT 21 
0 - - 


m 


1 PRINT INK 3,RT B,g; 


r l.i fe* 


5380 IF 1=17 RND r=3 RND INK5Y*= 
"q" THCN LGT C-C+100: PRINT RT 0 

5601.^ IF t = 12 RND f >22 RND INKKYÍ 
>"U" THEN LET t=C+100: PRINT RT 
0,16; c 

5900 IF f *23 THEN CL5 : GO TO 61 
0® 

5920 IF f=0 THEN CL8 : GO TO 30® 
6®20 GO TO S680 
6100 REH 6 

6106 LET 1-17; LET r*15 
620® LET 


a LET a*= LET bi-"' QBE 

LET CÍ-" iaE^": LET d**' f fiET^ 
Et 4i = T m ": LET fi = " uri? ‘ 
LET QU' LJL LET 
621® PRINT INK 3;RT ®,®, HHÉM 

Í230 PRINT INK 5íRT 0,10;"5COftE: 

64®fe INK 3: PLOT 20,10: DRRU 230 
,0: DRRU -30,130: DRfiU *14,9: Dft 
RU -14,3 DRRU -115,0: DRRU -14, 
-3 DRáu -14,-10; DfifiU -30,-130 
6401 PLOT 10,10 DRRU 230,0. DRR 


PRINT RT t 
, RT t+2 


i <Ci rRin I J. ! O j m i -s. a , 

■555S55SS5555555555555&5S555& 


7412 PRINT INK 3;RT 0j 

; t 

7415 PRINT INK 5;RT 0,10,"5C0RE: 

^ c 

7420 INK 4: CIRCLE 194,40,2: CIR 
CLE 193,40,4: CIRCLE 194,24,2: C 
IRCLE 193,24,4: INK 3: PLOT 17®, 
6: DRRU 0,47: DRRU 50,0: DRRU 0, 
-47: DRRU 0,23: DRRU -5®,® 

7421 INK 3: PLOT 0,50: DRRU 17®, 
®- DRRU ®,5: DRRU -170,0: DRRU ® 
, -5 

7430 INK 6. PLOT 3®,99: DRRU -2, 
0: DRRU -4,9: DRRU 40,0: DRRU -4 
,-9: DRRU -2,0: DRRU 3,7: DRRU - 
34,0 DRRU 3,-7 

7431 INK 6: PLOT 24,103; DRRU ®, 
30: DRRU 40,0: DRRU 0,*30 DRRU 
0,15: DRRU -40,0 

7432 INK 6 PLOT 75,99: DRRU -2, 
®: DRRU «4,9: DRRU 40,0: DRRU -4 

* -9: DRRU -2,0: DRRU 3,7; DRRU - 
34,®: DRRU 3,-7 

7434 INK 6: RLÜT 69,108 DRRU ®, 
30: DRRU 4®,®: DRRU 0,-30: DRRU 
®,15: DRRU -40,0 

7440 INK 6: PLOT 125,99: DRRU *2 
,0: DRRU -4,9: DRRU 86,0: DRRU - 
4,-9: DRRU -2,® DRRU 3,7: DRRU 
-40,0 DRRU 0,-7: DRRU -2,0: DRR 
U 0,7 DRRU *40,® DRRU 3,-7 

7441 INK 6: PLOT 119,106 DRRU 0 


,30: DRRU 66,0: DfiAU 0,-30 DRRU 
®,15: DRRU - 66 ,® 

7450 PRINT INK 3;RT 19,3; "T";RT 

74¿0 J ÍnK 5: LET x*20: LET yl3 
7461 LET S=14: LET P-13 
SPRINT INKJET 4 , 5 ,"^^", 

INKEY i * 

THEN PRINT RT t,f;«i;RT t+l,f;b 
i; RT t +2 , r ; c 4 

7492 IF ual ThEN LET y*y+l; PRIN 

T RT 20 ,i; " 1fc : LET y 14 

7493 IF p*2 THEN LET P-p+1 PRIN 

T RT 14,2J Y LET p-14 

750® IF INKEY I = kl W OR INKEY|="U 1 

THEN LET r-r+ 1 ; PRINT RT t,r;$» 
ULf.biJT t+2,r,c*: PRINT 
HT t+ 2 , r, di: FOR b=® TO 2: NEXT 
b PRINT fif ttSYiCI 
751® IF INKEY*="q" DR INKEY(="0" 
THEN LET r*r-i; PRINT RT t,r.et 
,RT t +1,r; r í,fiT t+2,r;h* PRINT 
RT t+2,r:9*: FOR b=® TO 2. NEXT 
b PRINT RT t+2,r;hi 
7520 IF t =18 RND INKEY|s"e‘ OP I 
NKEYÍü"E" THEN LET 1*16: PRINT , 
RT t +3 P r +1; • ";fiT t+4,r + 1; " 

", RT t +3 , r ; " ", fiT t , r, a i, fiT 

t+l,r;bi,fiT t+2,r;cí: FOR u *® T 
O 1 NEXT ü: PRINT RT t,r," 

; RT t + Lr ;' 1 " , RT t +2 , r ; " 

LET t=18 

7530 IF t = 19 RND r =15 RND INKEYt 

= "£" OR INKEYt = "E" THEN LET t ^ X2 
: PRINT .RT 1+6,r+1;" ".fiT t+ 
7, r + 1; ■■ " , flT t +6 , r : bl " , RT 

t.naSjñT t+l,r , b i; RT t+2,r,ct 

FOR Ut® TO 1: NEXT U; -- “ 

> r ; " -;RT t + 1 ,r;” 

, r ; " 

7531 IF 1-12 RND INKEY f*"e" OR I 

NKEY| = "E 1 THEN LET t=10 PRINT , 
RT t+3,r +1; " --fiT t+4,r + 1j" 

,p , RT t , f , a *; RT t + l.r>bi;RT t + 
S, r; c i FOR a*0 TO 1: NEXT a PR 
INT RT t , r ; " - RT t+ 1 . r ; " 

";RT t+2,r;" ": LET t=12 

7540 IF i = 18 RND r =P RNQ NüT INK 
SY*s l 'e" THEN PRINT INK 3, fiT t,r, 

" H , fiT t +1,r ; " ";RT t +2,r, 

" BEEP >035,-10; LET r *6 

LET fsf-1; PRINT fiT 0,6; f- PRINT 

INK 3; fiT 19,3. "J_' ; RT 13,S, "T" 

7541 IF 1 3 12 RND r=y RND NüT INK 
EYim'e" ThEN PRINT INK 3;fiT t,r, 

" ; fiT t +1, r ; 11 " : RT t +2 , r ; 

: BEEP *035,-10; LET r 
LET f = F-1 PRINT PT 0,6; f PRINT 
INK 3J fiT 19,3 : "T" , fiT 13,6; "f 
760® IF f =1 THÉrTLET faf + l: PRIN 
T RT t+1,r;" " 

7601 IF t=10 fiND r*16 THEN LET r 
= r-1: PRINT fiT t + 1 1 r +4 " 

7800 IF t =12 RND r=20 RND INKEY( 
="W" THEN LET c=C+5®0 PRINT RT 
0 ,16:c 

7612 IF t =18 RND INKEYí= J q" fiND 
r-3 THEN LET C=C+1®0 PRINT fiT ® 
,16; C 

7814 IF t-12 fiND INKEYS- 1 q" fiND 
rid THEN LET C=q+10®. PRINT RT ® 
, 18; c 

7620 IF rs24 THEN CL5 : GO TO 62 

0 ® 

7900 IF í=0 THEN CLS GO TO 30® 
9000 GO TO 7490 
9200 CL5 

9300 PRINT fiT 2,6;"HALL QF THE F 
fiME" PLOT 47,150: DRfiU 129,® 
8400 PRINT RT 5,7 ; U . 5.9 ** , . 800 " 
; RT 7 , 7 ; 1 EUGENXUD5p .600";RT 9,7: 

■E.S.P.=.30® 

9410 IF C >300 THEN PRINT fiT 12,1 
;"E£tas entrt tos Afijares," 

8411 IF 0300 THEN INPUT "pon tu 
& iniciales ;as 

8420 IF 0300 OR 0320 THEN PRIN 
T fiT 9,7,a to " " 

6421 IF' C > 6 00"ó R'C >62® THEN PRIN 

T RT 7-7; a*; ". M ; c; " " 

84 22 IF O9ÉS0 OR C >62® THEN PRIN 

T AT 9,7;**; --" j t : " " 

8500 It 0100® THEN PRINT FLfiSH 
1; PfiPEfi 6; INK 1 ;kT 5,7,ai; FLfi 

5H ®; ".. ■ , " ; C J " 11 

689® PRINT fiT 2®,£:"PuL&e Cüalqu 
ier tecta PflUEE 0 
689® FÜR 0=0 TO 55: BEEP .®25, q + 
INT ÍRND +®.®35> : NEXT 9: CL5 ; G 
O TO 30® 
















T^cuQ<S4isa 


Recientemente asistimos a una 
proliferación de programas de mú¬ 
sica, especialmente de ia casa 
Musí -Soft e Idealogic, afincadas en 
Madrid y Barcelona respectiva¬ 
mente. En próximos números de 
TODOSPECTRUM analizaremos 
en detalle las posibilidades "se¬ 
rias” en cuanto a música y Spec- 
trum se refiere. Y aprovechamos 
para aclarar un error ya clásico: El 
Spectrum es tan bueno para pro¬ 
gramas musicales como cualquier 
otro. Las posibilidades gráficas 
para dibujo de “la partitura” son sí 
cabe más importante que el soni¬ 
do. 

Por el momento, y para “abrir 
boca” comenzaremos con un pe¬ 
queño programa: el célebre PARA 
ELISA de Beethoven. Un corto 
programa, cuya extensión se po¬ 
dría haber reducido considerable¬ 
mente con la utilización de bucles 
y datos en instrucciones RE AD¬ 
DATA. En cualquier caso, lo im¬ 
portante es el sonido y la posibili¬ 
dad de incorporarlo a otros progra¬ 
mas. 

Autor:Francisco Martínez 16K 


NCXSCO MARTINEZ 
0: PAPER 0; INK 7 : C 


“PAR 

L.U 


■ 7*18 
n ida 


9aQ REM 

300 BORO 
LS 

390 PRXNT AT 6,18; FLASH 1¡ 

A ELISA” ;AT 7,8; FLASH 0; "O 
an Bt«thovtn";fif 19,8;"Adaptado 
al zx-Sp«ctrum por Francisco 
Martinar lionníui" 

39S LET 1*4,8: LET ñg*0: LET ni 
«8: LET n8*4: LET n3*S: LET n4*7 
: LET n6*9: LET n6*ll: LET 
: LET n0*14: LET n0*lS: LET 
17 

4.00 LET n 11*19: LET H 18*81: LET 

n 13«&3 : LET n 14*84.; LET n 16*86: 

LET nis*0: LET nl7*l0: LET n!8* 
18: LET n19*83 

590 LET a *■0685*1: LET b*.186«t 
: LET C * • 38 * l: LET d*,5*X: LET • 
*1*1: LET bb*.1878*1: LET CC*,37 
S*l 

808 LET Cb *C*30: LET dp*d«30 

El» 50 SUB 000: BEEP C C ¿ n 0 : PAÜ 
SE CP: 00 SUB 600: (EEP C,n5: PA 
USE cp; BEEP b,nS: BEEP 
EP b,nB: 00 SUB 708 


P b , n7 : BEEP b,n7: BEEP b,n?: BE 
EP d¿n?: BEEP CC¿ni0: BEEP i.n9 
648 BEEP C j 09: BEEP C,nB¡ BEEP 
b ¿ n19: BEEP a¿n18: BEEP a.ntS; 

,nl0! BEEP b,n 
Bel 


Bill áW t W M ■ j II i 

EEP b.nll; BEEP 
9: BEEP b,nS: BE! 
H17: BEEP C,nB: í 
960 BEEP 4,n4: ! 
a,n17: BEEP d,n7: 
P b,n 18: BEEP CC. 
BEEP b,n10: BEEP 


b,n7: BEEP C 
EEP a¿nS 
EEP a ¿nB: BEEP 
BEEP b¿n8; BEE 
n«; BEEP b¿n9: 
b¿n5: BEEP d¿n7 


CP * í «30 : LE 
UB 000: BEE 

sub ir 

EEP b,r 

00 SUB 

580 BEEP C,n§: PAUSE Cp: BEEP b 
¿nB: BEEP b¿n?: BEEP b¿n8: 00 SU 
B 700;; BEEP C¿n6; PAUSE CP : BEE 


b ¿ n?: BE 


S EEP bb,nfl: BEEP «¿ñS 
0 BEEP a ¿n?: BEEP a,nll: BEEP 
a¿n4: BEEP «¿nll; BEEP a¿nB¡ BE 
EP «¿nll; BEEP «¿nS; BEEP a_¿nll; 
^BEEP a,n7: BEEP a,nll: BEEP «¿n 

688 BEEP a¿nll: BEEP i¿n9: BEEP 
«¿nll: 8SEP «,n14: BEEP a,nl3: 
BEEP a¿nl8: BEEP a¿nll: BEEP «,n 
10; BEEP a,n9: BEEP «,nB: BEEP a 
¿mi; BEEP • ¿n 10: BEEP «¿nB: BEE 
p a ¿ n 7: BEEP «¿mi: BEEP «¿H4: B 
EEP «¿nll: BEEP «¿09; BEEP «¿nll 
: BEEP «¿nB: BEEP «¿nll: BEEP «, 
n?; BEEP «¿nll; BEEp «¿fí8: BEEP 
a,nll: BEEP a,no 
504 BEEP a ¿nil: BEEP a,n!4; BES 
P a ¿n 13: BEEP a¿ni8: BEEP a¿nll; 


















BEEP 4,nl0: 8EEP I,n9: 8EEP a,n 
8: BEEP t.nll: BEEP 4,010: BEEP 
4 , n8: BEEP |,n9: BEEP 4,n10; BEE 
P 4,09: BEEP 4,08: BEEP 4,09; BE 
EP 4,06: BEEP l,09: BEEP 4,018: 
BEEP *,n9: BEEP 4,06: BEEP 4,n6: 

BEEP 4 ¿ H9; BEEP 4 , n 10 : BEEP Ct, 
n9: BEEP b,n6 

588 BEEP b ,09: BEEP b,ftl8: BEEP 
C C ,n9: BEEP b, 06: BEEP b,n9: BE 
EP b,010; BEEP b,n9: BEEP b,0l8: 

BEEP b, 09; BEEP b,nl6: Oü SUB 8 
00: BEEP c,n5; PRUSE dp: BEEP b, 
n6: BEEP b»n7: BEEP b,n6: 00 SUB 
700: BEEP 4 j n5: 00 TO 1000 
700 BEEP CC,n9: BEEP b,n4.: BEEP 
b ,n10: BEEP b,n9: BEEP cc,n5: B 
EEP b,n3: BEEP b,n9: BEEP b,n8: 
BEEP CCj n7 

710 BEEP b,n2: BEEP b,n6; BEEP 
b, n7; BEEP b, n 0 ¡ BEEP b,n2; BEEP 
b,n9: BEEP b,n2: BEEP b,n9: BEE 
P b,n2: BEEP b, n9: BEEP b,09: BE 
EP b,0l5: BEEP b,nl8: BEEP b,n9 
720 BEEP b>n18: BEEP b,n9: BEEP 
b,ni6: BEEP b, n9: BEEP b,niB: O 
O 5UB 900: BEEP b,n2: BEEP b,n 16 
: BEEP b, n6 : BEEP C,n7: PAUSÉ CP 
r BEEP b , n2 : 00 SUB 900: BEEP b. 


ni; BEEP b , n 7: BEEP b,n6; RETURN 


800 00 SUB 900: BEEP b,r»2 
b,n 16: BEEP b,n6: BEEP b, 
USE CP; BEEP b,na¡ 00 SUB 
EEP b ,nl: BEEP b,n7: BEEP 
RETURN 

900 BEEP b,n9; BEEP b,nl8 
b, n9 : BEEP b,nl6: BEEP b, 
EP b,n6: BEEP b , nB: BEEP b 
EEP b,06: PAUSE Cp; BEEP b 
EEP bjn2: BEEP b,nS; BEEP 
PRUSE Cp: RETURN 


BEEP 

n 7: PR 
900; B 
b > n 8 : 

BEEP 
n9: BE 

,n7; B 
j n 0: B 
b , n6: 


prrr Elisa 
dC L.Uan Bttthovcn 
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mm f 1 *** ECONOMICO 


▲ MAS DE 300 
1 UNIDADES 
VENDIDAS 
EN ESPAÑA. 

Que hacen del 
r ¡nteiiace de TR 
l un siandart del 

V software en 

V disco. 


Compare, unidad de di', 

Pía^Em r rSÚ '° tóa 

P(w.Émp te3(JÍSCasde 
r„ ^ ^piísima drfu. 

ínn lf . baÍ0precÍD -Cüoas 
^ 0 °Pte. e) disco > 


UNA «BUENA» MANO PARA SU SPECTRUM 


Una exclusiva de: 


DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 


SISTEMAS LOGICOS GERONA, S.A. 

Avria. Sjh NarciSC, 21 
17005 «ROM k - TeL (tTí) 23 71 


CADA INTER PACE, ADEMAS DE UNAS COMPLETAS 
INSTRUCCIONES EN CASTELLANO, SE SUMINISTRA 
CON UN OISCO DE UTILIDADES QUE LE PERMITIRA 
FORMATEAR DISCOS, DUPLICAR PROGHAMAS Y 
DISCOS COMPLETOS Y PASAR AUTOMATICAMENTE 
DE CASETTE A DISCO SUS PROGRAMAS 
COMERCIALES FAVORITOS. 


INTERFACE DE TECHNOLOGY RESEARCH (Gobierna 4 discos) (28 soo Pt*,> 

UNIDAD DE DISCO COMPLETA Di 5,25“ 40 pistas simple cara de 16Q K. (49 soo Pie ) 
UNIDAD DE DISCO COMPLETA DE 5,25“ 80 pistas doble cara de 640 K. (65 uso Pts ) 
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Programa especial mente pensa¬ 
do para los niños, con gran diversi¬ 
dad de caras que se formarán ante 
sus ojos, pudiendo participar con 
el teclado de una forma sencilla y 
entretenida. 

Las caras que salen son comple¬ 
tamente aleatorias, guardando to¬ 
das unos esquemas previamente 
programados. Por ejemplo, el con¬ 
torno de la cabeza, los ojos, las ce¬ 
jas, la nariz, la boca, son cosas que 
siempre salen, pero variando den¬ 
tro de unos límites. La boca puede 
ser sonriente o triste o de labios 
gruesos o delgados. 


También hay cosas que pueden 
o no salir, como son: pecas, pelo, 
un cigarro o pipa, gafas, etc., y 
cuando salen lo hacen de distinto 
tamaño o incluso posición en pan¬ 
talla diferente. 

La expresión utilizada más fre¬ 
cuentemente en el programa es: 

LET H = INT (RND * 7) 

1F H = 4 THEN... 

IF H > 4 THEN... 

donde RND 7 genera un número 
aleatorio entre 0.0000001 y 
6,999999 y INT redondea al ente¬ 
ro, por lo que los números útiles 


van del 0 al 6. Si la expresión hu¬ 
biese sido LET H - INT (5 + RND 
* 7) el número oscilaría entre 5 y 
11. Esto luego puede ser aplicado 
al radio de un círculo o a una posi¬ 
ción de pantalla, o lo que se quie¬ 
ra. Esto hace que las caras sean 
siempre diferentes y las que se pa¬ 
recen nunca son exactamente 
iguales. 

También varían el color del 
BORDE y PAPEL manteniéndose 
el color de la tinta en contraste me¬ 
diante INK. 9, y además el BRI¬ 
LLO y el OVER. 

El funcionamiento del programa 
es muy sencillo. En principio están 


10 LET REF‘=10; RANDOMIZE O: P 
OKE 23658,8 

20 BORDER Os PAPER Os INK 5: C 
LS 

30 LET ue=300s LET po=0: LET p 
un=Q 

40 LET yy=20: LET xs=5: LET ys 
=5: LET p$="LA": GO SUB 1140 

50 LET yy=70: LET p$= ,, CARA l, s G 
0 SUB 1140 




60 LET y y = 120: LET p*=‘’LDCA": 
GO SUB 1140 

70 BEEP .2,5: PAUSE 5¡ BEEP .5 
,5; BEEP 1,12: BEEP .5,5: PAUSE 
5: BEEP .5,5: BEEP .5,14: BEEP 1 
,12: PAUSE 50: CLS 

80 LET yy=0: LET xs=10: LET ys 


=10: INK 6: LET p$=5TR$ REP: GO 
SUB 1140: LET yy=130: LET xs=2: 
LET ys=3: INK 4: LET p^= M CARAS": 

GO SUB 1140: FOR n=l TO 200: NE 
XT n 

90 FRINT 1 ; FLASH 1 ¡ "PULSA UN 
A TECLA": PAUSE 0 
100 FOR e=1 TO INT REP 
110 LET a=INT <RND*B) 

120 LET 00=1 NT (RND#5): IF OV T 
HEN LET OV=0: GO TO 140 
130 LET ÜV=1 

140 BORDER a: PAPER a: INK 9: B 
RIGHT RND#1: OVER OV: CLS : RAND 
OMIZE 0 

150 LET xx=200: LET yy=l75: LET 
xs=2: LET ys=2: LET p*=STR$ e: 
60 SUB 1150 

160 LET ca=INT (RND*5>: IF NOT 
ca THEN LET el=90: GO TQ 190 
170 LET ci=1 NT <70+RND#18>: FOR 
n=cí TO ci-2 STEP -1: CIRCLE 12 
7,88,n: NEXT n 
180 GO TO 210 

190 LET cu=RND*3.2: LET po=INT 
Í10+RND*25): FOR N=CU TO CU-.l S 
TEP -.05: PLOT 127-po,175: DRAW 
0,-175,N: PLOT 127+po,175: DRAW 
O,-175,-N: NEXT N: PLOT 127-po,1 
75: DRAW po*2,Ü: PLOT 127-po,Os 
DRAW po*2,Q 

200 LET Oj=INT <RND*10>: IF QJ> 
5 THEN GO TO 220 














programadas 10 caras {que nunca 
serán las mismas al ejecutar e! pro¬ 
grama por vez primera). Por cada 
cara que sale aparecerá una letra 
en la esquina inferior izquierda. Al 
pulsarse la tecla correspondiente 
se ejecutará otra cara. La letra o 
número que aparece estará un 
tiempo determinado en pantalla y 
si no se pulsa la tecla correcta apa¬ 
recerá otra letra o número. Este 
tiempo viene determinado por la 
variable us y en principio tiene un 
valor de 300, disminuyendo en 
cada cara en 25. Si se desea se pue¬ 
de cambiar su valor inicial si el 
niño tiene dificultades con el tecla¬ 


do. Por ejemplo, LET us = 1000. 

Una vez que han salido las 10 
caras el niño se enfrenta a unas le¬ 
tras que aparecerán en pantalla de 
distinto tamaño y color, y deberá 
proceder como en las anteriores: 
pulsar la tecla adecuada. 

Al terminar esta pantalla saldrá 
la puntuación. La máxima puede 
ser de 20, por lo que el programa 
empezará otra vez con 10 caras. Si 
los puntos hubiesen sido de 8 se 
empezaría de nuevo con 4 caras. 

Otra cosa que se incluye en el 
programa y que puede resultar in¬ 
teresante es una salida para impre¬ 
sora. Si se tiene conectada, la cara 


pasa a la impresora cuando el niño 
pulsa la tecla correcta. Estas caras, 
ya pasadas al papel, se pueden co¬ 
lorear o recortar o hacerse con un 
buen archivo para regalar a los 
amigos. 

Para finalizar hay que decir que 
el programa se apoya en una su¬ 
brutina en código máquina para 
generar caracteres gigantes. Esta 
subrutina es la misma que la que 
viene en la cinta HORIZONTES, 
cara B y se obtiene mediante 
LOAD “c” CODE. 


José C. Tomás 


210 CIRCLE 96,120,20: CIRCLE 15 
9,120,20 

220 LET PN=1 NT Í96+RND*10): LET 
TN=INT (5+RND*13>: CIRCLE 127,P 
N,TN 

230 LET 0=1 NT <RND*7> 

240 IF O>4 THEN 60 SUB 650 
250 IF 0<4 THEN 60 SUB 710 
260 IF 0=4 THEN LET PO=INT (10 
-RND*20): PLOT 77,119: DRAW 38,0 
: F'LQT 140.119: DRAW 38, Os CIRCL 
E 95+PÜ,115,3: CIRCLE 159+PO,115 
3 

'270 60 SUB 500 
- 280 LET A-i NT íf<WD*4» 

290 IF A=0 THEN LET 6R=INT (RN 




D*10): FOR N=9ó TO 100: PLOT N,1 
44: DRAW 24+6R.-16: NEXT N 
300 IF A=0 THEN FOR N=159 TO 1 
63: PLOT N,144: DRAW -24-6R.-16: 
NEXT N 
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XOmDjS 


W. 


s~5: LET ys=5: LET p$=" " 

B 1150 

480'IF INKEY*<>"‘' THEN SO TO 4 


OT 80,139: DRAW 32,O,-N: PLOT 14 
3,139: DRAW 32,0,-N: NEXT N 
320 IF A=2 THEN PLOT 95,144: D 
RAW -24,-16: PLOT 159,144: DRAW 
24,-16 

330 LET Q= INT (RND*6>: IF Q=0 T 
HEN SO SUB 730 

340 LET A= INT <RND*10>: TF A=5 
THEN GO SUB 770 
350 LET F'E=INT ÍRND*5> : IF PE=3 
THEN GQ SUB 890 

360 LET LG=INT <RND*5): IF L0>2 
THEN GO SUB 930 
370 LET LA-INT <RND*10): IF LA= 
3 THEN 60 SUB 1030 
380 LET JA=INT (RNDH10J: IF JA> 
=7 THEN SO SUB 1100 




60 

490 COPY : LET us=us-25: LET pu 
n=pun+1: NEXT e: GO TO 1160 
500 LET U= INT (80+RND#40> : LET 
D=<127-U>*2: LET J=50: LET I=ÍRN 
D*2> 

510 LET F-INT (RND#4): IF F=0 T 
HEN PLOT U,J: DRAW D,O.I+D/500j 
PLOT U,Js DRAW D,O,1+(D/500)+RN 
D 

520 IF F=1 THEN PLOT U,J: DRAW 
D,O,-I: PLOT U.J: DRAW D,0,-I-R 
ND 

530 IF F—2 THEN PLOT U,J: DRAW 
D,O,-1: PLOT U,J; DRAW D,0, I 
540 IF F=3 THEN PLOT U,J: DRAW 
D/2,2,-1: DRAW D/2,-2,-I: PLOT 
U,J: DRAW D,O: PLOT U,¿s DRAW D, 
■0,1-. 5 

550 LET RR-INT <RND#10): IF RR= 

5 THEN GO SUB 570 
560 RETURN 

570 LET P1 = 1 NT (RND*2>: IF PI T 
HEN GO TO 620 

580 LET CC=RND*1: LET M0=-2: LE 
T LA»INT (15+RND*65>p LET GA=INT 
<RND*10) 

580 LET CC=RND*1: LET M0=-2: LE 
T LA=INT (15+RND*Ó5)¡ LET GA=INT 
ÍRND*10) 


390 LET ST=INT <1+RND*10): FOR 
N=-20 TO 20 STEP ST: BEEP ,09,N: 
BEEP ,01,N+20: NEXT N 
400 IF pun<0 THEN LET pun=0 
405 LET LE=INT (RND*10) 

410 IF LE THEN LET A$=CHRí INT 
<65+RND#26)¡ GO TO 430 
420 LET Aí=CHR$ INT <4Q+RND*10) 
430 FOR M=1 TO 4: LET xx=0: LET 
yy- 160: LET xs=M: LET ys=M: LET 
p*=A$: GO SUB 1150: NEXT M 
440 FOR n=l TO us: IF INKEY$Oa 
$ THEN NEXT n 

450 IF INKEY$Oa* THEN BEEP .5 
,-20: LET p$ = M GO SUB 1150: L 

ET pun=pun-l: 60 TO 400 
460 FOR n=l TO 60 STEP 3: BEEP 
.01,n: NEXT n 

470 LET xx-1s LET yy=160: LET x 


590 PLOT U,J: DRAW -LA,-GA,CC: 
DRAW 3,-5: DRAW LA,GA+5,CC: PLOT 
U-LA,J-HQ 

600 LET HU=INT U+RND*5> 

610 FOR M=1 TO HU: FOR N=1 TO R 
ND*10: DRAW OVER 1;-5+RND*1O,RN 
D*15,-4+RND*8¡ NEXT N: PLOT U-LA 
+M,J-MO: NEXT M: RETURN 
620 PLOT U,J: DR 10 UET REP= 
10: RANDOMIZÉ O: PÜKE 23658,8 
20 BORDER O: PAPER O: INK 5: C 
LS 

30 LET us=300: LET po=0: LET p 
un=0 

40 LET y y=20: LET xs=5: LET ys 
=5: LET p$= , *LA": GO SUB 1140 

50 LET yy=70: LET pí="CARA M : 6 
570>LET PI=INT (RND*2):IF PITHE 
N 60 TO 620 
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580 LET CC=RND*1: LET M0--2: LE 
T LA=INT U5+RNDÍ65): LET GA—INT 
(RND*10> 


740 FOR M=74 T0 BO+LG: PLÜT 112 
—BI+TE,M¡ DRAW 30+ÍBI*2)- i 2*TE>, 
O 


590 PLOT U.J: DRAW H_A,-GA,CC: 
DRAW 3,-5: DRAW LA,SA+5,CC: PLOT 
U-LA,J-MD 

600 LET HU=INT (1+RND*5) 

610 POR M=1 TO HU: FOR N=1 TD R 
ND#10: DRAW OVER 1;-5+RND*10,RN 
Dí15,~4+RND*8: NEXT N: PLÜT U-LA 
+M.J-MÜ: NEXT M: RETURN 
620 PLÜT U.J: DRAW -50,0: DRAW 
0,20,2: DRAW -10,0: DRAW 0,-20, 
2: DRAW 5.-5: DRAW 55,5 
630 LET MD=-22: LET LA=54: PLOT 
U-LA,J-MQ: 80 TO 600 
640 LET ÜJ= INT (RND*2>s IF 0J = 1 
THEN GO TO 680 

650 LET X=83+INT <RND*23): LET 
Y=107+INT (RND#25> 


750 IF 30+(BI*2)-(2#TE)O0 THEN 
RETURN 

760 LET TE=TE+IG: NEXT M: RETUR 

N 

770 LET GAF=INT (RNDi10): IF GA 
F=*9 THEN GO TÜ 820 
780 IF GAF=8 THEN GO TO 840 
790 IF GAF=7 THEN GO TO 860 
800 LET GA=INT <23+RND*6)¡ FOR 
N=22 TO 8A: CTROLE 96,120,M: OIR 
CLÉ 159,120,N: NEXT N 
310 LET AF=(RND*3): FOR M-116 T 
O 120: PLÜT 119,M: DRAW 17,0,-AF 
: NEXT M: RETURN 
820 LET GA-INT (23+RND*7): FOR 
N=22 TO GA: GIROLE 96,120,N: NEX 
T N 



660 LET T0=INT <i+RND#ó)¡ FOR N 
=1 TO TO: CIRCLE X,Y,N: CIRCLE 6 
4+X,Y,N: NEXT N 

670 RETURN 

680 LET X=83+INT CRND*23)s LET 
Y-107+INT <RND*25> 

690 CIRCLE X,Y,N: CIRCLE 64+X,Y 
,N 

700 RETURN 

710 LET TA—INT Íi+RND*5>: LET X 
=INT (20+RNDÍ25): LET Y=107+INT 
<RND#25> : CIRCLE 127+X.Y.TA: CIR 
CLE 127-X,Y,TA 

720 RETURN 

730 LET TE=0: LET IG=INT (RND*5 

Í ): LET LO=INT <RND*10): LET BI=I 
NT (RNDÍ10) 


830 FOR n=110 TO O STEP -3: PLO 
T 75,n: NEXT n: RETURN 
840 LET GA=I NT (23+RNDÍ7) : FOR 
N=22 TO GA: CIRCLE 159,120,N: NE 
XT N 

850 FOR n-110 TO O STEP -3s PLÜ 
T 180,n: NEXT n: RETURN 
860 FÜR N-120 TO 122: PLOT 75,N 
: DRAW 43,0: PLOT 138,N; DRAW 43 
,0: NEXT N 

870 FOR N=4 TO 3.8 STEP -.05: P 
LÜT 75,122: DRAW 43,0.N: PLOT 13 
8,122: DRAW 43,O,Ns NEXT N 
880 GO TO 810 
890 IF CT =*?0 THEN RETURN 
900 FOR N-l TQ INT (5+RNDÍ25): 


6 
























LET F'£ = INT (6Ú+RND*45): LET CA=I 
NT <70+RND*25): PLOT PE,CA 
910 LET FE»INT <60+RND*45>: LET 
CA=I NT <70+RND*25>: PLOT PE+90, 
CA 

920 NEXT N: RETURN 
930 LET 00=1 NT (RND*2): IF DV T 
HEN OVER 1: GO TQ 950 
940 OVER O 

950 LET LA=INT (RND*15) 

9ó0 FGR N=20 TO INT <20+RND*100 

) 

970 IF ci+90>=175 THEN LET ci» 
85 

980 LET PE 1 = INT (Í27-po+RND*po* 
2) 

990 PLOT PEI,ci+90 
1000 LET PE=INT Í50-RND*100)¡ LE 
T LO——INT <RND*20> 

1010 DRAW PE,LO-LAs PLOT PEI,el+ 
90: DRAW -PE,LO-LA 


1020 NEXT Nr GVER ’ r “! 

1030 IF F=0 THEN RETURN 
1040 LET SR=0 


1050 OVER 1: LET RI=INT (RND*12> 
: LET RI = 11: LET LAG= INT <RND*50 
): FOR N=100 TO 10+LAG STEP -20 
1060 PLOT INT <30+RND*30>-GR,N: 
DRAW -2,-RI: DRAW -5,0,-5; DRAW 
6, RI 

1070 PLOT INT <150+RND*30>+GR,N: 
DRAW 6,-RI: DRAW -5,0,-5: DRAW 
-2, RI 

1080 LET GR=GR+5: NEXT N 

1090 OVER Os RETURN 

1100 LET TAM=INT (5+RND*ó): LET 

FA=INT (10+RND*21) 

1110 FOR N=1 TO 3: CIRCLE 127,10 
,N: NEXT N 

1120 FOR N=TAM TO -TAM STEP -1: 
PLOT 127,10: DRAW PA,N: PLOT 127 
,10: DRAW “PA,N: NEXT N 
1130 RETURN 

1140 LET ;<:< = í256—8*xs*L£N p*> /2 
1150 LET 1=23306: POKE i POK 

E i + 1, yy: POKE 1+2,::®; POKE i+3, 
ys: POKE 1+4,8: LET i=i+4¡ LET w 
=LEN p$: FOR n=l TO w: POKE i+n, 
CODE p$(n): NEXT n: POKE i+w+1,2 
55: LET w=USR 32256: RETURN 
1160 BQRDER O: PAPER O: BRIGHT 1 
: CLS 

1170 FOR m= 1 TO 10: LET ;<:< = INT ( 
F:ND*180>; LET xs=INT (Í+RND*10): 

LET ys=xs: LET d$=CHR$ INT Í63+ 
RND*26): INK INT (2+RND*ó) 

1180 LET yy= INT <RND#130): LET p 
$=d$: 60 SUB 1150 

1190 FOR n=1 TO 100: IF INKEY$=d 
* THEN FOR b=1 Tü 60 STEP 3: BE 


ALSI, S. A. 

COMERCIAL 4 (Gestión integrada Spectrum) Control de Stocks-Facturación-Mailing-Pedidos-Presupuestos-Albaranes 
Un solo cartucho microdrive con capacidad para: 

— 1.000 artículos condificados (control de stocks, lista de precios con aumento automático). 

— 400 direcciones (fichero, mailing, facturación, etc.) 

— Facturas (pedidos, presupuestos y aibaranes hasta 10 conceptos). 

Realizado totalmente en España, instrucciones en castellano, facilísimo manejo. 


—-VENTA EN EL CORTE INGLES Y TtENOAS ESPECIALIZADAS- 

LETRAS DE CAMBIfl/SPECTRUM/MICRODRIVE 

— Imprime letras de cambio mensuales, oficiales y recibos negociables. 

Su ejecución es realmente simple, imprimiendo de una sola vez hasta 1.000 letras con el trabajo de hacer una sola. 
Contiene las necesarias funciones correspondientes. 

CONTABIUDAD/SPECTRUM/MICRODRIVE 

» 2.500 asientos « Sumas y saldos «Situación proveedores »Regularización «Situación clientes 

»Contraasientos automáticos «Pasivo «225 cuentas «Activo «Cierre y apertura 

Fácil manejo. Ajustado al plan contable o contabilidad personal. 


OFERTA Interface I + Microdrive + Comercial 4 ó contabilidad .... 36.000 Ptas. 

Interface I + Microdrive + Seikosha 550 + Comercial 4 o contabilidad .... 96.000 Pías. 

Spectrum + Interface II + Microdrive + Seikosha 550 + Comercia! 4 o contabilidad ... 135.000 Ptas. 


ALSI 


comercial, S. A r Antonio López. 154 - Tel 475 43 39 - 23026-MADRíO 



























EP . 01, b: NEXT b: CLS : LET pun= 

pLin + 1: GO TQ 1210 

1200 NEXT n: BEEP .1,-20: CLS s 

LET pun=pun-í: IF pun<0 TREN LE 

T pun=0 

1210 NEXT m 

1220 LET yy=10: LET xs=2: LET ys 
=2: LET pí="PUNT03": GO SUB 1140 
: LET yy=100: LET *<3=6: LET ys=6 
: LET p$=STR* pun: GO SUB 1140 
1230 FOR N=1 TO 400: NEXT Ns CLS 
: LET REP=I NT ípun/2) 

1240 IF pun>=20 THEN GO TO 1270 
1250 FOR M=1 TO 7: LET yy=60+(M* 
10): LET ks= 2: LET ys=3: INK M: 
LET p$="OTRA PARTIDA DE": GO SUB 
1140: NEXT M: LET yy=88: LET xs 
=10: LET ys=10: LET p*=STR* REP: 
GO SUB 1140: PAUSE 300 


1260 LEJ us=REP*30: GO TO 20 
1270 OVER 1: FOR N«0 TO 175 STEP 
INT (1+RND*10)í PLOT N,N: DRAM 
255-(2#N>,O: DRAW O,175-(2*N): D 
RAW -255+(2*N>,O: DRAW O,-175+(2 
*N): NEXT N 

1280 LET yy=83: LET ys=2: LET xs 
=3: LET p*="MUY BIEN": GO SUB 11 
40:' FOft N-i ■ TO-300: NEXT Ni GO T 
O 20 

1290 STOP 

1300 CLEAR 32255; LOAD '’bl"CODE 
32256: RUN 

9999 SAVE "CARA LOCA" LINE 1300: 
SAVE "bl"CODE 32256,300: VERIFY 
"": VERIFY ""CODE 
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0En el artículo «Del 48 al plus. 
El kit paso a paso» (págs. 4, 5, 6, 7 
y 8 de la revista n.° 7) dicen Vds. 
que las únicas diferencias entre el 
Spectrum y el Plus son: a) un bo¬ 
tón de RESET, b) una caja más 
amplia que refrigera a través de 
dos rejillas de ventilación y c) un 
nuevo teclado que incorpora 17 te¬ 
das más. ¿Qué pasa con el supues¬ 
to aumento de memoria a 64K? 
También dicen Vds. que este kit de 
montaje lo proporcionará Inves- 
trónica, ¿cuándo será esto y tendrá 
el mismo precio que en Inglaterra 
(6.000 ptas sólo el kit y 4.000 más 
si lo montan ellos)? Porque en la 
pág. 2 de la revista ZX n." 17 ¡n- 
vestrónica anuncia un cambio de 
Spectrum a Plus por ! 2.000 ptas. 
¿es esto lo que Vds. decían que ha¬ 
ría Invest roñica? 

Christian Klein 
Barcelona 


No se trata de un aumento de 
memoria a 64K. Sigue siendo el 
mismo Spectrum de ¡6K de ROM 
y 48K de RAM. Por razones de 
marketing se eligió la denomina¬ 
ción de 64K, que tanta confusión 
ha generado, igualmente confuso 
parece resultar el último anuncio 
de Investrónica del paso del Spec¬ 
trum al Plus, que en realidad hace 
referencia al Kit del Plus que co¬ 
mentábamos en el número 7. 


ÜU He realizado el montaje del lá¬ 
piz óptico del número 6 pero no 
me funciona bien. ¿Se han encon¬ 
trado con algún problema? 

Juan C. Pérez 
Segovia 



R 


Nos alegra tu pregunta que 
aprovechamos para hacer algunas 
matizaciones sobre dicho montaje: 

— En la lista de componentes 
aparece un condensador C¡ de JO 
pF, cuando en realidad debe ser de 
10 nF. 

— Todas las resistencias son de 

1/4. 

— La descripción del apanta- 
llamiento del circuito no fue muy 


afortunada. En la figura 4 se puede 
ver que junto a TS existe un termi¬ 
nal marcado con el signo de masa. 
Ayúdese también en la figura 9. 
Suelde en ese orificio un hilo y eli¬ 
mine la mitad del plástico aislante 
del extremo opuesto al de la solda¬ 
dura. Envuelva a continuación el 
circuito con plástico o papel y lue¬ 
go con papel de aluminio, pero de¬ 
jando salir el mencionado conduc¬ 
tor. Enrolle al papel de aluminio, 
con el doble objeto de proporcionar 
un buen contacto eléctrico y rigi¬ 
dez mecánica. 

La localización del fotodiodo 
puede resultar difícil. Sin embargo, 
cualquier fotodiodo que funcione 
en el espectro del visible es válido. 
Un sustituto bastante conocido es 
el BPW66. 


1—1 El pasado día 2 adquirí interfa¬ 
ce “INDESCOMP-Centronics- 
RS-232” y una impresora 
GP-550 A ' de “SE1KOSHA”. 
Cuando conecté los dos periféricos 
a mi “Spectrum 48K” me percaté 
de que no podía hacer “copys” de 
pantalla porque según explicáis en 
la revista número 2 de octubre, 
pág. 44. se necesita para ello un 
programa adicional que distribuye 
la empresa “DIRAC”. Pues refe¬ 
rente a esto último son mis pre¬ 
guntas que, abusando de vuestra 
amabilidad, espero me contestéis. 

a) Cuando tenga el programa 
de “copy” y lo cargue en el orde¬ 
nador, ¿podré cargar otro progra¬ 
ma distinto y trabajar con él? 

b) Cuando el programa “copy” 
esté cargado, ¿qué debo hacer para 
que todo lo que esté en pantalla 
salga copiado exactamente igual 
en la impresora? 

c) Puesto que el cuadernillo de 
instrucciones del interface señala 
que los "copys” que pudieran estar 
en cualquier programa se deberán 
sustituir por los correspondientes 
“RANDOMIZE USR 65044 o 
650470”, ¿cómo podría realizar tal 
operación, ya que poseo los pro¬ 
gramas “VU-3D” y “PAINT- 
BOX” y por mucho que he inten¬ 
tado hacerlo todavía no he conse¬ 


guido ni un solo copiado de panta¬ 
lla. 

d) ¿Tiene mi impresora capa¬ 
cidad gráfica suficiente para copiar 
cualquier clase de dibujo o gráfico 
que salga por pantalla aunque sean 
de alta resolución como los que 
aparecen en el programa “DE- 
MO” del “PA1NTBOX"? 

Perdonad la extensión de mi 
carta, pero he decidido dirigirme a 
vosotros porque creo que si hay al¬ 
guien que pueda resolverme los in¬ 
terrogantes que planteo con serie¬ 
dad, concisión y profesionalidad es 
vuestra revista. 

Juan Navarro Posadas 
Córdoba 

0 Muchísimas gracias. Ponemos 
tu pregunta en manos del Servicio 
Técnico de Di rae: 

a) "El programa de copy que 
nosotros comercializamos, es para 
realizar el volcado de pantalla del 
Spectrum a la impresora corres¬ 
pondiente, mediante el interface de 
Indeseomp por conexión paralelo 
Centronics. El programa reside en 
las posiciones de memoria 64348 
al final de memoria física. Utiliza 
la misma memoria que el Ínter face 
de Indescomp por lo que no podrá 
funcionar con programas que utili¬ 
cen código de máquina en esas di¬ 
recciones. 

b) Llamaremos al programa 
de copv simple por RANDOMIZE 
USR 65044 y al doble RANDO- 
MIZE USR 65047. 

c) El programa “PA ¡N TBOX" 
y “VU-3D" permiten guardar las 
pantallas realizadas como fichero, 
por lo que se pueden cargar poste¬ 
riormente como screen $, para vol¬ 
carlas a impresora. 

d) Sí,-perfectamente se pueden 
realizaren tamaño reducido y am¬ 
pliado. 

Disponemos de un interface con 
ROM externa intercambiable lla¬ 
mado MASTERFASE 4. que no 
ocupa memoria RAM y que reali¬ 
za el COP Y mediante los coman¬ 
dos COPY I y COPY2." 


| p I 

i— IComo respuesta a la pregunta 
que os hacia Miguel Angel de 











El corcho 


Oviedo en el número de marzo re¬ 
ferente a poder copiar la pantalla 
en la impresora os envío un pro¬ 
grama que realiza esta labor. 

Mi impresora es una OPA 80 y 
supongo que las instrucciones de 
control de impresión son iguales 
para todas. De no ser así baterías 
con cambiar las líneas 9026 = espa¬ 
cio entre líneas; que ha de ser de 8 
puntos (o 8 bits, es decir, un byte 
en vertical). 9027 - número de by- 
tes a mandar por línea; que tienen 
que ser 512 por línea, 9315 = salto 
a la siguiente línea, por las corres- 



IMFRESION DE Lfl PñNTBLLB 


MATCH 

POINT 

By 

i! 


pondientes instrucciones de cada 
impresora. 


LT Afr H SCREEN4 
i-b" i 4SQQ 
«Oí "b " 

■'2? V'B 9 363 
r ^r, TO SO ZJZV E 

c 0 TZ LET 

FOR A-O TC 7 

9025 r-OR d-h id h-*4 siep a: pofe 
fri rr imíchk* 2 ", "A 1 ¡ ckk* 3 
9022 PRtMT 2?i"h"?CHR* OiCHRt 2j 

*030 F3R LTO 31 + X 
903 i P^‘ ! X 30005 T L 
9T40 FOkE 50010*126 

RANDOUIZE USR 50001 
*310 NEXT L 

?Si5 t RI NT #4;CHR* 10; 

931? NEXT D 

93JS LET X=X+32 

*240 NEXT A 

*245 NeXT H 

*250 CLOSE «4 

9*55 Cid rs *400 

93Ó5 Ft?R P“50001 T Q 50082 

■‘370 EEAD a: FOKE P.íC NEXT P 

93$3 SATA l*\ 0. i . 3?. O, 64, 14,4,203,126, 194,9 , 195 T = 21,193,65 

9332 OATA 62,3,5,1 94 r 107,195,195,1I3„193,7 f 7 ,5,i94,i 0 7,i95,7I f SB,130 f 195„123,50* 
130,195 

9390 DATA 23,13,194.29,195,62,4,203,203,14,38,180,195,215,62,4,205,203,14,58,180 
. 1*3,215,62,A,50, 120,135 

*093 DATA 38.*0, É95,2J4 ( 3,50*90,195,254,02* I*4,8J t 1*5*201 
93*3 RETURN 


E Efectivamente, la copia corres¬ 
ponde al Match Point, que anali¬ 


zaremos próximamente en la sec¬ 
ción de juegos. 


0Hace más de dos meses les soli¬ 
cite una copia en cassette del pro¬ 
grama de evaluación escolar. Toda 
vez que no tengo noticias, les rue¬ 
go contestación por si no he proce¬ 
dido a su petición en la forma ade¬ 
cuada. 

Joaquín Rodríguez 
Toledo 

Es» petición era "correctísima”. 
La demora ha sido motivada por 
problemas de fabricación. Confia¬ 
mos en que todos puedan recibirla 
en este mes. 


E Quisiera saber si existe alguna 
otra foma de acceder a los progra¬ 
mas contenidos en la cinta de 


Spectrum Computing que ustedes 
distribuyen. De no ser así, si a par¬ 
tir de ahora continuarán publican¬ 
do programas en que sea necesaria 
la desconexión del inte ría ce. 

Jordi Millán 
Barcelona 


E Efectivamente, diversos progra¬ 
mas requieren de la desconexión 
del Ínter face por utilizar rutinas en 
código máquina pos id onados en 
la zona de memoria utilizada por 
aquél. El utilizar estas direcciones 
de memoria no es un capricho; se 
trata de utilizar al máximo la ca¬ 
pacidad del ordenadrrr y de sacar 
«bytes» de todos los sitios posibles. 
En cualquier caso, siempre se pue¬ 
de desconectar el interface. 



Vendo Casio FX-802P con impreso¬ 
ra incorporada e interface FA/3, to¬ 
talmente nuevos, por25.000pías. In¬ 
teresados (sólo Madrid), llamar a 
Amador Merckán. Tlf. 4674814. 


POR NECESIDAD DE COMPRAR 
UNA IMPRESORA, VENDO PRO¬ 
GRAMAS PARA SPECTRUM 16/48 K. 
XAVIER LAMI QU12. TLF. (954) 
180849. SEVILLA. 
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La T/ Programmer //de Texas 
Instrument es, como sugiere su 
nombre, una calculadora diseñada 
específicamente para programado- 
res y estudiantes de informática en 


les de la A a la F), las teclas de con¬ 


general, que necesiten una herra¬ 
mienta de trabajo rápida y fácil de 
manejar para realizar diferentes 
operaciones y cálculos tanto en 
base 10 (decimal), base 16 (hexa- 
decimal) y base 8 (octal). 

La 77 Programmer //se caracte¬ 
riza por ser una máquina cómoda 
y de diseño sencillo, plana y de co¬ 
lor gris metálico. Tiene 40 teclas 
en tres colores diferentes entre los 
que destacan (además de las opera¬ 
ciones aritméticas usuales [+, x, 
/], tedas de números del 1 al 9 y 6 
teclas para las cifras hexadecima- 


versión de una base a otra (DEC, 
HEX, OCT); teclas de funciones 
específicas como son: la tecla K 
(que permite almacenar el número 
y su operación asociada), la tecla 
STO (almacena de forma relativa 
los resultados obtenidos) la tecla 
RCL (restituye la información al¬ 
macenada en la memoria), SUM 
(acumula los resultados de las ope¬ 
raciones realizadas), y otras especí¬ 
ficas para utilizar en base Hexade- 
cimal y Octal como AND (Y lógi¬ 
co), QR (O lógico), XOR (O exclu¬ 


sivo), 1’sC (permite la comple- 
mentación a uno), etc., que pueden 
ser aplicadas a una serie de funcio¬ 
nes aritméticas y lógicas como son: 
la realización de operaciones arit¬ 
méticas en las tres bases; comple- 
mentación a dos en base octal y 
hexadecimal; trabajar con coma 
flotante en las operaciones aritmé¬ 
ticas en base decimal: conversión 
de números enteros de una base a 
otra; I 5 niveles de operaciones con 
paréntesis disponibles: memoria 
constante e independiente con ca¬ 
pacidad para acumular el resulta¬ 
do; funciones lógicas que permiten 
efectuar las operaciones lógicas bit 
a bit en hexadecimal y octal; capa¬ 
cidad de trabajar con las operacio¬ 
nes lógicas o aritméticas en modo 
constante y. por último, puede 
cortar automáticamente la alimen¬ 
tación de la calculadora después de 
pasados 20 minutos de no ser utili¬ 
zada. 

Estas características hace de éste 
modelo de Texas, una herramienta 
potente y eficaz (su consumo no es 
excesivo a pesar de estar conectada 
permanentemente) para solucio¬ 
narlos problemas más usuales que 
se le presentan al programador o 
estudiante cuando está trabajando, 
aunque en ciertos aspectos, ¡a má¬ 
quina pueda estar limitada en de¬ 
terminadas funciones y capacida¬ 
des como son la realización de 
operaciones y cálculos más com¬ 
plejos y conversión efectiva al sis¬ 
tema binario. Precio 14.990 ptas. 



Ensamblador/Desensamblador para Spectrum 
Conozca Extremadura... consulte a su ordenador. 

QL Magazine: Ajedrez de Psion, Novedades Informal. 
Programas: Juego de aventuras. 
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¿So en 


¡Imagínate! Cinco útilísimos 
cgmponentes integrados en 
una sola unidad compacta que 
se conecta a tu Spectrum en 
unos segundos. Sin cableados 
engorrosos. Potente y eficaz. 
Eso es WAFADRIVE, elegido 
periférico del ano en el Reino 
Unido y fabricado por Rotro- 
nics. * 

interface con el Spectrum, 
interface serie RS/232 (con ve¬ 
locidad de transmisión selec¬ 
cionadle por software], interfa¬ 
ce paralelo Centronics y dos 
drives de 128 K cada uno que 


utilizan cartuchos de 16. 64 o 
128 K diseñados para propor¬ 
cionar una alta velocidad de 
transferencia de datos [2 K por 
segundo) y la máxima fiabili¬ 
dad. 

Dale a tu Spectrum la poten¬ 
cia y la versatilidad de un sis¬ 
tema auténticamente profesio¬ 
nal. Y aprovéchate de nuestra 
Oferta Especial de lanzamien¬ 
to en la que, para que conozcas 
uno de los muchos programas 
ya disponibles para el WAFA- 
DRIVE, incluimos el Spectral 
Writer (un excelente Procesa¬ 
dor de Textos). Y un cartucho 
virgen. Y manuales en castella¬ 
no. claro. 


tu tienda de Informática 
rectamente en MICRQBYTE. 

* También fabricante de los modula¬ 
dores ASTEC 


Si, quiero aprovecharme da su Oferta Especial de 
lanzamiento. Envíenme un WAFADRIVE, el Proce¬ 
sador de Textos Spectral Whter y un cartucho vir¬ 
gen. todo por 48,500 - Ptas 


fiambre 

Dirección 

Población 

Código Postal 1 

■ Telefono 

i 

\ Incluyo Talón Nominativo Q 

zx 

Contra Reembolso □ 


MICROBYTE, P.“ Castellana. 179-1 
28046-Madrid 
Pedidos por teléfo no: 

91442 54 33 


i 
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SOMOS PROFESIONALES 





+ (ESTUCHE SINCLAIR DE 6 cintas 
+ BEACH-HEAD + ATIC-ATAC 
+ PYJAMARAMA + AVALON) 


+ TARJETA 

CLUB SINCLAIR STORE 
(10% descuento en todas 
tus compras sucesivas). 


1 joystick 


+ 1 intertace 
para el joystick 


Al comprar lu Spectmm Plus (64K) 
te obsequiamos con: 


+ CURSO 
de iniciación 
al BASIC 
DEL SPECTRUM 
(1 semana) 


Por encima de todo. 
Porque al comprar tu 
ordenador personal en 
cualquiera de las "boutiques 
informáticas" de SINCLAIR 
STORE, toda una 
organización profesional se 
pone a tu servicio para 
ayudarte y asesorarte en todo 
aquello que puedas necesitar. 
Personalmente, o por correo, 
cuéntanos tu duda o 
problema. 

Por pequeña o grande 
que sea, nuestro equipo 
técnico te dará la solución 
más idónea para tu caso. 

Por encima de todo, SOMOS 
PROFESIONALES. 


También al comprar 
tu Spectrum 48K 
te obsequiamos con: 

1 joystick 
+ 1 libro 

+ curo de 1 semana 
+ 10 programas n.° 1 
+ Tarjeta CLUB SINCLAIR STORE 
(10% dto.) 



15 % Descuénto en Software. 

Tenemos los mejores precios del mercado. 

COMPRUEBELO PERSONALMENTE 




SOMOS PROFESIONALES 


BRAVO MURILLO, 2 (apare, gratuito en C/. Magallanes, 1). Tel.: 446 62 31 
DIEGO DE LEON, 25 (apare, gratuito en C/. Núñez de Balboa, 114). Tel : 261 88 01 MADRID 


































